В матрице M(6,6) определить координаты единственного нулевого элемента. Если он располагается в верхней половине матрицы,то сделать нулевыми элементы нижней половины. Иначе -верхней — Pascal(Паскаль)

var a:array[1..6,1..6]of integer;
    i,j,iz:integer;
begin
for i:=1 to 6 do
for j:=1 to 6 do
read(a[i,j]);
for i:=1 to 6 do
for j:=1 to 6 do
if a[i,j]=0 then
begin
  iz:=i;
  break;
end;
if iz<=3 then
for i:=1 to 3 do
for j:=1 to 6 do
a[i,j]:=0
else
for i:=4 to 6 do
for j:=1 to 6 do
a[i,j]:=0;
for i:=1 to 6 do
begin
  for j:=1 to 6 do
  write(a[i,j]:3);
  writeln;
end;
readln;
end.