Поиск однофамильцев в программе!

program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils;
 
var
K:textfile;
st:string;
begin
assignfile (k, 'k.txt');
reset (k);
while not Eof(k) do
begin
readln (k,st);
writeln (st);
end;
readln;
close (k);
end.

program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils;
 type
    LOL=record
       Im9:string[25];
       Famil:string[25];
       klas:string[10];
 end;
 mas=array [1..5] of LOL;
 var
 Ft: file of LOL;
 i : integer;
 B : LOL;
 
 const L :mas= (( im9:'Petro' ;  Famil:'Kosigin' ;   klas: '4-B'),
               (  im9:'Valentit' ; Famil: 'Urek';  klas: '5-D'),
               (  im9:'Maxim' ; Famil: 'Makish';  klas: '7-A'),
               (  im9:'Andriy' ; Famil: 'Kish';  klas: '9-G'),
               (  im9:'Svitlana' ; Famil: 'Oren';  klas: '11-V'));
begin
 assignFile(Ft,'LOL.txt');
 rewrite(Ft);
 For I:=1 to 5 do
    begin
      writeln('Im`9I=', L[i].im9 ,'  ',  'Frizvishe=', L[i].famil , '  ',  'kLaS=', L[i].klas);
      write(Ft,L[i]);
    end;
 closeFile(Ft);
 writeln;
 writeln;
 reset(Ft);
 writeln ('ENTER');
 readln;
  while not Eof(Ft) do
    begin
       read(Ft,B);
    \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
 closeFile(Ft);
 readln;
end.