Заполнить двухмерный массив по следующему правилу: элементы главной диагонали равны 1, ниже главной диагонали — 0, а выше — сумме индексов — Pascal(Паскаль)

program PascalGuru;

var
  A: array [1 .. 50, 1 .. 50] of integer;
  i, j, n: integer;

begin
  write('N= ');
  readln(n);

  for i := 1 to n do
    for j := 1 to n do
    begin
      write('A[', i, ',', j, ']=');
      readln(A[i, j]);
    end;

  for i := 1 to n do
  begin
    writeln;
    for j := 1 to n do
      write(A[i, j]:8);
  end;
  { ****************************************** }

  for i := 1 to n do
    for j := 1 to n do
    begin
      if i = j then
        A[i, j] := 1;
      if i > j then
        A[i, j] := 0;
      if i < j then
        A[i, j] := i + j;
    end;

  writeln;
  writeln;
  writeln('Preobrazovannyi:');

  for i := 1 to n do
  begin
    writeln;
    for j := 1 to n do
      write(A[i, j]:8);
  end;

  readln;

end.