Определить клиента, который полностью выплатил сумму стоимости строения

Program kr1;
uses CRT;
Type
stroen = record
 stoimost:real;
 Tip: string[20];
  klient:record
  kredit:real;
  Vkb:real;
  dolg:real;
 End;
Firma:string[30];
end;
 
Var
a: stroen;
b:array [1..10] of stroen;
f1:file of stroen;
i,j,n,k,m:byte;
tip:array [1..10] of string[20];
h:string[20];
f:boolean;
begin
assign(f1,'d:\stroenie.txt');
{rewrite(f1);
writeln('Vvedite danie stroeni9I');
 for i:=1 to 10 do
  with a do begin
   writeln('klient');
   write('kredit'); readln (klient.kredit);
   write('Cymma vklada v bank'); readln(klient.vkb);
   write('Nevuplachena9I Cymma'); readln(klient.dolg);
   write('stoimost'); readln(stoimost);
   write('Tip stroeni9I'); readln(tip);
   write('Firma-podporiadchik'); readln(Firma);
write(f1,a);
end;
close(f1);}
clrscr;
reset(f1);
n:=0;
m:=1;
while not(eof(f1)) do
 begin
  inc( n );
  read(f1,b[ n ]);
 end;
 
close(f1);
k:=0;
for i:=1 to n do
 begin
  h:=b[ i ].tip;
  f:=true;
 
  for j:=1 to k do
   if tip[ j ]=h then f:=false;
 
  if f then
  for j:=i+1 to n do
   if b[ j ].tip=h then
     inc(m);
 if m>=3 then
  begin
   inc(k);
   tip[k]:=h;
  end;
 m:=1;
 end;
for i:=1 to k do
 Writeln(tip[ i ]);
Readln;
end.

close(f1);}
clrscr;
reset(f1);
n:=0;
m:=1;
while not(eof(f1)) do
 begin
  inc( n );
  read(f1,b[ n ]);
 end;
 
close(f1);
k:=0;
for i:=1 to n do
 begin
  h:=b[ i ].tip;
  f:=true;
 
  for j:=1 to k do
   if tip[ j ]=h then f:=false;
 
  if f then
  for j:=i+1 to n do
   if b[ j ].tip=h then
     inc(m);
 if m>=3 then
  begin
   inc(k);
   tip[k]:=h;
  end;
 m:=1;
 end;
for i:=1 to k do
 Writeln(tip[ i ]);
Readln;
end.