Помогите написать массив

Const
  m=5;
  n=8;
var
  a:array[1..m,1..n] of integer;
  i,j,k:integer;
begin
  Randomize;
  Writeln(Сгенерированный массив);
  k:=0;
  for i:=1 to m do begin
    for j:=1 to n do begin
      a[i,j]:=Random(21)-10;
      Write(a[i,j]:4);
      if a[i,j]=0 then Inc(k)
      end;
    Writeln
  end;
  if k=0 then Writeln(В массиве нет нулевых элементов)
  else begin
    Write(Нулевые элементы: );
    for i:=1 to m do
      for j:=1 to n do
        if a[i,j]=0 then Write([,i,,,j,] )
        else a[i,j]:=1;
    Writeln;
    Writeln(Результирующий массив);
    for i:=1 to m do begin
      for j:=1 to n do Write(a[i,j]:2);
      Writeln
      end
    end;
    Writeln(Количество нулевых элементов равно ,k)
end.
        
Тестовое решение
Сгенерированный массив
  -4  -2  -6   9   4 -10   2  -9
   5  -6  10   5   0   1   3   7
  -3   7  10   3  -9  -8   4   0
  10  -4   0   5 -10  -9   0   3
   6  -4  -8  -2   5   1   4  -2
Нулевые элементы: [2,5] [3,8] [4,3] [4,7]
Результирующий массив
 1 1 1 1 1 1 1 1
 1 1 1 1 0 1 1 1
 1 1 1 1 1 1 1 0
 1 1 0 1 1 1 0 1
 1 1 1 1 1 1 1 1
Количество нулевых элементов равно 4