дана целочисленная матрица порядка n. Найти номера строк, все элементы которых-нули — Pascal(Паскаль)

uses
  crt;
const
  n=2;
var
  a:array [1..n,1..n] of integer;
  i,j,count:integer;
begin
  clrscr;

  writeln('Формирование массива:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(8)-4;
      write(a[i,j]:2,' ')
    end;
    writeln
  end;

  writeln('Выводим нулевые строки:');
  for i:=1 to n do
  begin
    count:=0;
    for j:=1 to n do
      if a[i,j]<>0 then
        inc(count);
    if count=0 then
      write(i,' ')
  end;
  writeln
end.