В матрице М(4,6) найти координаты единственного нулевого элемента

const
  p = 4;
  q = 6;
 
type
  matrix = array[1..p, 1..q] of integer;
 
procedure inp(out x: matrix);
var i, j: integer;
begin
  writeln('Введите матрицу, содержащую нулевой элемент:');
  writeln('24 числа через пробел или <Enter>, например, 4 строки по 6 чисел');
  for i := 1 to p do
    for j := 1 to q do read(x[i, j]);
  readln
end;
 
procedure print(s: string; const x: matrix);
var i, j: integer;
begin
  writeln(s);
  for i := 1 to p do
    begin
      for j := 1 to q do write(x[i, j]:10);
      writeln
    end
end;
 
procedure find_zero(const x: matrix; var iz, jz: integer);
var i, j: integer;
begin
  iz := 0;
  jz := 0;
  for i := 1 to p do
    begin
      for j := 1 to q do
        if x[i, j] = 0 then
          begin
            iz := i;
            jz := j;
            break
          end;
      if iz > 0 then break
    end
end;
 
procedure zero(var x: matrix; iz, jz: integer);
var i, j: integer;
begin
  for i := 1 to p do
    for j := 1 to q do
      if (iz < jz) and not odd(i) or (iz >= jz) and not odd(j)
        then x[i, j] := 0
end;
 
var
  m: matrix;
  izero, jzero: integer;
 
begin
  inp(m);
  print('Исходная матрица', m);
  find_zero(m, izero, jzero);
  if izero > 0 then
    begin
      writeln('Координаты нулевого элемента: ', izero, ', ', jzero);
      zero(m, izero, jzero);
      print('Преобразованная матрица:', m)
    end
  else writeln('Матрица не содержит нулевого элемента');
  readln
end.

procedure inp(var x: matrix);
var i, j, p: integer;
begin
  write('Как вводить матрицу: по строкам (0) или по столбцам (1)? ');
  readln(p);
  writeln('Введите матрицу, содержащую нулевой элемент:');
  writeln('24 числа через пробел или <Enter>, например, 4 строки по 6 чисел');
  if p = 0 then
    for i := 1 to p do
      for j := 1 to q do read(x[i, j])
  else
    for j := 1 to q do
      for i := 1 to p do read(x[i, j]);
  readln
end;

type
  matrix = array of array of integer;
 
procedure inp(out x: matrix; var xx, yy: integer);
var i, j: integer;
begin
  repeat
    write('Введите размер матрицы по вертикали: ');
    readln(yy)
  until yy > 0;
  repeat
    write('Введите размер матрицы пo горизонтали: ');
    readln(xx)
  until xx > 0;
  setlength(x, yy, xx);
  writeln('Введите матрицу, содержащую нулевой элемент:');
  writeln(xx * yy, ' чисел через пробел или <Enter>, например, ', yy, ' строк по ', xx, ' чисел');
  dec(yy);
  dec(xx);
  for i := 0 to yy do
    for j := 0 to xx do read(x[i, j]);
  readln
end;
 
procedure print(s: string; const x: matrix);
var i, j: integer;
begin
  writeln(s);
  for i := 0 to high(x) do
    begin
      for j := 0 to high(x[i]) do write(x[i, j]:10);
      writeln
    end
end;
 
procedure find_zero(const x: matrix; var iz, jz: integer);
var i, j: integer;
begin
  iz := 0;
  jz := 0;
  for i := 0 to high(x) do
    begin
      for j := 0 to high(x[i]) do
        if x[i, j] = 0 then
          begin
            iz := i;
            jz := j;
            break
          end;
      if iz > 0 then break
    end
end;
 
procedure zero(var x: matrix; iz, jz: integer);
var i, j: integer;
begin
  for i := 0 to high(x) do
    for j := 0 to high(x[i]) do
      if (iz < jz) and not odd(i) or (iz >= jz) and not odd(j)
        then x[i, j] := 0
end;
 
var
  m: matrix;
  izero, jzero, p, q: integer;
 
begin
  inp(m, p, q);
  print('Исходная матрица', m);
  find_zero(m, izero, jzero);
  if izero > 0 then
    begin
      writeln('Координаты нулевого элемента: ', izero, ', ', jzero);
      zero(m, izero, jzero);
      print('Преобразованная матрица:', m)
    end
  else writeln('Матрица не содержит нулевого элемента');
  readln
end.

type
  matrix = array [,] of integer;
 
procedure inp(var x: matrix; var yy, xx: integer);
begin
  repeat
    write('Введите размер матрицы по вертикали: ');
    readln(yy)
  until yy > 0;
  repeat
    write('Введите размер матрицы пo горизонтали: ');
    readln(xx)
  until xx > 0;
  setlength(x, yy, xx);
  writeln('Введите матрицу, содержащую нулевой элемент:');
  writeln(xx * yy, ' чисел через пробел или <Enter>, например, ', yy, ' строк по ', xx, ' чисел');
  dec(yy);
  dec(xx);
  for var i := 0 to yy do
    for var j := 0 to xx do read(x[i, j]);
  readln
end;
 
procedure prn(s: string; const x: matrix; p, q: integer);
begin
  writeln(s);
  for var i := 0 to p do
    begin
      for var j := 0 to q do write(x[i, j]:10);
      writeln
    end
end;
 
procedure find_zero(const x: matrix; var iz, jz: integer; p, q: integer);
begin
  iz := -1;
  jz := -1;
  for var i := 0 to p do
    begin
      for var j := 0 to q do
        if x[i, j] = 0 then
          begin
            iz := i;
            jz := j;
            break
          end;
      if iz >= 0 then break
    end
end;
 
procedure zero(var x: matrix; iz, jz: integer; p, q: integer);
begin
  for var i := 0 to p do
    for var j := 0 to q do
      if (iz < jz) and not odd(i) or (iz >= jz) and not odd(j)
        then x[i, j] := 0
end;
 
var
  m: matrix;
  izero, jzero, p, q: integer;
 
begin
  inp(m, p, q);
  prn('Исходная матрица', m, p, q);
  find_zero(m, izero, jzero, p, q);
  if izero >= 0 then
    begin
      writeln('Координаты нулевого элемента: ', izero + 1, ', ', jzero + 1);
      zero(m, izero, jzero, p, q);
      print('Преобразованная матрица:', m)
    end
  else writeln('Матрица не содержит нулевого элемента')
end.