Подсчитать количество нулевых элементов матрицы и напечатать их индексы

uses crt;
var max,c,b,n,m,i,j,k,x:integer;
a:array[1..10,1..10] of integer;
Begin
    Repeat
    Writeln ('Vvedite N, M');
    Readln (N, M);
   until (m>1) and (m<4) and (n>1) and (n<4);
    Writeln ('Vvedite elementi matrici "A"');
     for i:= 1 to m do
      for j:= 1 to n do
   Begin 
   Write ('A[',i:2,',',j:2,']=');
    Read (A[i,j]);
   end;
    Writeln ('Matrica "A"');
     for i:= 1 to m do
   Begin
    for j:= 1 to m do
     Write (A[i,j]:3);
      Writeln;
      
   end;

 max:=A[1,1];
   c:=1;
   b:=1;
for i:=1 to m do 
for j:=1 to n do
  for k:=2 to (A[i,j]-1) do
    begin
      if A[i,j]mod k=0 then x:=x+1;
    end;
    if x=(A[i,j]-2) then 
    
  
    
if A[i,j] > max then 
max:=A[i,j]; 
c:=i;
b:=j;
 
writeln(max);
writeln (c,b);
end.

program ex1;
uses crt;
const N1=100;N2=100;
type matrix=array[1..N1,1..N2] of real;
var n,m:integer;
a:matrix;
 
procedure RandomMatrix(var a:matrix; var n,m:integer);
var i,j:integer;
begin
write('Введите кол-во строк матрицы ');
readln(n);
write('Введите кол-во столбцов матрицы ');
readln(m);
 
randomize;
for i:=1 to n do
 for j:=1 to m do
  a[i,j]:=random(3)
end;
 
procedure PrintMatrix(a:matrix; n,m:integer);
var i,j:integer;
begin for i:=1 to n do
       begin for j:=1 to m do
        write(a[i,j]:7:2);
        writeln;
        end;
end;
procedure ind(var a:matrix; n,m:integer);
var i,j,k:integer;
begin k:=0;
for i:=1 to n do
  for j:=1 to m do
    begin if a[i,j]=0 then 
    begin writeln('индекс ',i,j,' ');k:=k+1;end;
    end;
    writeln('количество элементов равных нулю: ',k);
end;
 
 
begin RandomMatrix(a,n,m);
PrintMatrix(a,n,m);
writeln;
ind(a,n,m);
 
end.