Матрица А 100x100 записана по строкам в файле. Определить, есть ли в ней нулевые строки

for i:=1 to 100 do
for j:=1 to 100 do
read(f,a[i,j]);

f:=false;
i:=1;
while( i<=100)and not f do
 begin
 b:=true;
 j:=1;
 while(j<=100)and b do
 if a[i,j]<>0 then b:=false
 else j:=j+1;
 if b then f:=true
 else i:=i+1;
 end;
if f then есть, иначе нет.

Program SteeL;
uses wincrt;
type arr=array [0..100] of boolean;
var
f: file of byte;
a,b,c:byte;
i,w:integer;
d1,m1:string;
m:arr;
 
procedure wwod;
begin
assign (f,'steel.dat');
rewrite(f);
b:=random(10)*100;
for i:=1 to 1000 do
begin
if (i>b) and (i<b+100) then a:=0
else a:= random(5);
write(f,a);
end;
close(f);
end;
 
procedure pros;
begin
assign (f,'steel.dat');
reset(f);
a:=0;
while not eof(f) do
begin
if a=100 then begin
readln;
writeln;
a:=0;
end;
inc(a);
read(f,b);
write(b,' ');
end;
writeln;
close(f);
end;
 
procedure s4et;
begin
clrscr;
assign (f,'steel.dat');
reset(f);
a:=1;
i:=1;
m[i]:=true;
c:=0;
while not eof(f) do
begin
if a=100 then
begin
 if m[i] then inc(c);
  inc(i);
   m[i]:=true;
    a:=1;
   end;
 inc(a);
read(f,b);
if b<>0 then m[i]:=false;
end;
close(f);
reset(f);
a:=1;
i:=1;
while not eof(f) do
begin
read(f,b);
if m[i] then write(b,' ');
 
if a=100 then begin
   inc(i);
  a:=1;
 end;
inc(a);
end;
writeln;
writeln;
 begin
 if c=0 then
 writeln ('В матрице нет нулевых строк!')
 else
 writeln ('В матрице имеются нулевые строки!');
 end;
writeln('Количество нулевых строк: ',c);
end;
 
begin
w:=10;
while w<>0 do
begin
writeln;
writeln ('   ______________');
 writeln('  |Меню Программы|');
 writeln('1- Создание нового файла');
 writeln('2- Просмотр файла');
 writeln('3- Вывод нулевой строки');
 writeln('4- Стереть всё и начать занаво');
 readln(w);
 clrscr;
  case w of
  1:wwod;
  2:pros;
  3:s4et;
  end;
end;
end.

 uses crt;
var t:text;
    i,j,a:integer;
    s:string;
    f,b:boolean;
begin
clrscr;
assign(t,'matrix.txt');
reset(t);
f:=false; {нет нулевых строк}
{пока не конец файла и нет нулевой строки}
while not eof(t)and not f do
 begin
  b:=true;{считаем что эта строка из 0}
  while not eoln(t)and b do{пока не конец строки и идут 0}
   begin
    read(t,a);{читаем числа}
    if a<>0 then b:=false{если не 0, меняем флаг, дальше не проверяем}
   end;
  if b then f:=true{если все 0, меняем 1 флаг, дальше не проверяем}
  else readln(t,s);{иначе считываем строку в буфер, смотрим следующую}
 end;
close(t);
if f then write('В матрице есть нулевые строки')
else write('В матрице нет нулевых строк');
readln
end.