Дан двумерный квадратный массив. Найти номера строк, все элементы которых равны нулю.

var a:array[1..1000,1..1000] of integer;
zero,zero1,j,i,n:integer;
begin
writeln(Vvedite razmernost massiva NxN);
readln(n);
for i:= 1 to n do
begin
for j:= 1 to n do begin
write(a[,i,,,j,]:=);
read(a[i,j]);
end;
end;
zero := 0;
for i := 1 to n do
begin
for j := 1 to n do
begin
if a[i, j] = 0 then
begin
zero := zero + 1;
zero1 := zero1 + 1;
end;
end;
if zero = n then writeln(i, stroka sostoit iz nulei );
zero := 0;
end;
if zero1 = 0 then writeln(Net nulevix strok);
end.