Сохранить все нулевые элементы, размещенные в нижней части матрицы

const m = 16;
type coord = record
               x, y: integer
             end;
var a: array [1..m, 1..m] of integer;
    z: array [1..(m div 2) * m] of coord;
    i, j, k, n: integer;
begin
  randomize;
  repeat
    write('Размер матрицы? ');
    readln(n);
    if not (n in [1..m]) then writeln('n вне диапазона 1..', m, ', повторите ввод.')
  until n in [1..m];
  k := 0;
  writeln('Матрица:');
  for i := 1 to n do
    begin
      for j := 1 to n do
        begin
          a[i, j] := -9 + random(19);
          write(a[i, j]:3);
          if (i >= (n + 3) div 2) and (a[i, j] = 0)
            then begin
              inc(k);
              z[k].x := j;
              z[k].y := i
            end
        end;
      writeln
    end;
  if k = 0
    then writeln('Нулевых элементов в нижней части матрицы не найдено.')
    else begin
      writeln('Координаты нулевых элементов в нижней части матрицы:');
      writeln('  i  j');
      for i := 1 to k do writeln(z[i].y:3, z[i].x:3)
    end;
  readln
end.

const m = 16;
var a: array [1..m, 1..m] of integer;
    z: array [1..(m div 2) * m] of integer;
    i, j, k, n: integer;
begin
  randomize;
  repeat
    write('Размер матрицы? ');
    readln(n);
    if not (n in [1..m]) then writeln('n вне диапазона 1..', m, ', повторите ввод.')
  until n in [1..m];
  k := 0;
  writeln('Матрица:');
  for i := 1 to n do
    begin
      for j := 1 to n do
        begin
          a[i, j] := -9 + random(19);
          write(a[i, j]:3);
          if (i >= (n + 3) div 2) and (a[i, j] = 0)
            then begin
              inc(k);
              z[k] := a[i, j]
            end
        end;
      writeln
    end;
  if k = 0
    then writeln('Нулевых элементов в нижней части матрицы не найдено.')
    else begin
      writeln('Нулевые элементы в нижней части матрицы:');
      for i := 1 to k do write(z[i]:2)
    end;
  readln
end.

var
    a : Array[Byte, Byte] Of ShortInt;
    i, j, n, m : Byte;
begin
    repeat
        Write('lines: ');
        ReadLn(n);
    until (n > 0);
    repeat
        Write('columns: ');
        ReadLn(m);
    until (m > 0);
    Dec(n); Dec(m);
    Randomize;
    for i := 0 to n do
    begin
        for j := 0 to m do
        begin
            //ReadLn(a[i, j]);
            a[i, j] := Random(19) - 9;
            Write(a[i, j]:3);
        end;
        WriteLn;
    end;
    WriteLn;
    for i := Trunc(n / 2) + 1 to n do
    begin
        for j := 0 to m do
            if (a[i, j] = 0)
            then
                Write(a[i, j]:3)
            else
                Write('  -');
        WriteLn;
    end;
end.