Дана матрица Z (3.3) заменить все на нули все её элементы, расположенные на главной диагонали. Преобразованную и исходную матрицу вывести по строкам

Var a, b, i, min, j, sum:longint;

m:array[1 ... 3,1 ... 3] of longint;

begin

for i:=1 to 3 do

for j: = 1 to 3 do

read (m[i, j]) ;

for i:=1 to 3 do

m[i, i]:=0;

for i:=1 to 3 do

begin

writeln;

for j: = 1 to 3 do

write (m[i, j],' ') ;

end;

end.