HELP!!!
Заменить значения всех элементов главной диагонали массива на нулевые

const z = 50;var A:Array[1..z,1..z] of integer;n,i,j:integer;beginwrite('Введите размер массива ');readln(n);for i:=1 to n dobeginfor j:=1 to n dobeginA[i,j]:= random(100)-50;write(A[i,j]:4);end;writeln;end;writeln;writeln;for i:=1 to n dobeginfor j:=1 to n dobeginif i=j thenA[i,j]:=0;write(A[i,j]:4);end;writeln;end;end.