Составить программу создания двумерного квадратного массива A[1..N, 1..N] таким образом, чтобы элементы главной диагонали были равны нулю. Остальные элементы берутся любые, в пределах от 1 до 50 — Pascal(Паскаль)

Program p1;

const
  n = 4;

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

begin
  for i := 1 to n do
    for j := 1 to n do
      a[i, j] := +1 + random(50);
  for i := 1 to n do
    for j := 1 to n do
      if i = j then
        a[i, j] := 0;
  for i := 1 to n do
  begin
    writeln;
    for j := 1 to n do
      write(a[i, j]:3);
  end;
  readln;
  readln;

end.