Заполнить квадратный двумерный массив таким образом, чтобы по диагонали были расположены 0, под диагональю 1, над диагональю элементы были равны сумме своих индексов. Pascal ABC

Program z;Type mas=array [1..100,1..100] of integer;Var i,j,nx:integer;a:mas;Beginread(nx);For i:=1 to nx doFor j:=1 to nx doBeginIf i>j thena[i,j]:=1;If i<j thena[i,j]:=i+j;If i=j thena[i,j]:=0;end;For i:=1 to nx dobegin; For j:=1 to nx do  write([a[i,j]],' '); writeln; end;End.

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 i<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  endend.