Заполнить квадратный двумерный массив таким образом, чтоб по диагонали были размещены

Const
  nmax=100;

var
  a:array[1..nmax,1..nmax] of byte;
  i,j,n:integer;
begin
  Write('Сколько в массиве строк либо столбцов? ');
  Readln(n);
  for i:=1 to n do
    begin
    for j:=1 to n do
    begin
      if ilt;j then a[i,j]:=i+j
      else if i=j then a[i,j]:=0
      else a[i,j]:=1;
      Write(a[i,j]:4)
    end;
    Writeln
  end
end.

Program z;
Type mas=array [1..100,1..100] of integer;
Var i,j,nx:integer;
a:mas;
Begin
read(nx);
For i:=1 to nx do
For j:=1 to nx do
Begin
If igt;j then
a[i,j]:=1;
If ilt;j then
a[i,j]:=i+j;
If i=j then
a[i,j]:=0;
end;
For i:=1 to nx do
begin;
 For j:=1 to nx do
  write([a[i,j]],' ');
 writeln; 
end;
End.