Найти все нулевые элементы матрицы и их количество

const
  m = 3;
  n = 4;
var
  a : array [1..m, 1..n] of Integer;
begin
  WriteLn('Заполним матрицу ', m, 'x', n, ':');
  for var Row := 1 to m do
    for var Col := 1 to n do
      a[Row, Col] := ReadLnInteger(String.Format('a[{0},{1}] =', Row, Col));
  WriteLn('Введена матрица a:');
  var count := 0;
  for var Row := 1 to m do
    begin
      for var Col := 1 to n do
        begin
          Write(a[Row, Col]:8);
          if a[Row, Col] = 0 then count += 1;
        end;
      WriteLn;
    end;
  WriteLn('Нулевых элементов ', count, '.', NewLine, 'Их индексы:');
  for var Row := 1 to m do
    for var Col := 1 to n do
      if a[Row, Col] = 0 then Print(String.Format('a[{0},{1}]', Row, Col));
end.

const n=2;m=2;
var a:array[1..m,1..n] of double; i,j,c:integer;
begin
 for i:=1 to n do begin
  for j:=1 to m do begin 
    Readln(a[i,j]);
  end; writeln;
 end; writeln;
 
 for i:=1 to n do begin
  for j:=1 to m do begin 
    if(a[i,j]=0) then begin inc(c); write(i:5,j:5); end;
  end; writeln;
 end; writeln;
 
 writeln('Кол-во нулевых = ',c); readln;
end.