индексы элементов

{
  Підрахувати кількість елементів
матриці, що дорівнюють нулю. Вивести
індекси цих елементів.
}
const
n = 5;
a = 0;
b = 3;
var
ar : array[1..n,1..n] of integer;
ar0i, ar0j : array[1..n*n] of integer;
count, i, j : integer;
begin
  count := 0;

  for i := 1 to n*n do begin
    ar0i[i] := 0;
    ar0j[i] := 0;
  end;

  for i := 1 to n do begin
    for j := 1 to n do begin
      ar[i][j] := random(b-a+1)+a;
      write(ar[i][j]:3);
      if(ar[i][j] = 0) then begin
        inc(count);
        ar0i[count] := i;
        ar0j[count] := j;
      end;
    end;
    writeln();
  end;
  writeln();
  writeln('Количество нулей в матрице: ',count);
  writeln('Индексы этих элементов:');
  for i := 1 to count do begin
    writeln(i,' - i = ',ar0i[i],', j = ',ar0j[i]);
  end;

end.