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

[Lemo]

Ребята, вот задача:
Сводки об ученике состоят из его имени и фамилии и названия класса (году учебы и буквы), в котором он учится. Дан файл K, что содержит сводку об учениках школы.
а) Выяснить, имеются ли в школе однофамильцы.
=*=*=*=*=*=*=*=*
Я создал файл К, вписал любые сводки об 5 учениках
Мои предположения, что если есть однофамыльцы, вывести их на екран, если нет, написать строку типо "Однофамильци отсутствуют"
Вот мой код, который из файла К выводит на екран сводки, а как определить есть или не однофамильци помогите дописать!

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.

[Lemo]

Вот я написал через запись!
Вопросы:
1)Правильно я ли так сделал, потому что в условии сказано, что файл уже есть со сводками?!
2)Там, где вот такие символы \\\\\\ помогите дописать, что бы условие находило однофамильцев, если нет - то вывод строки-"Однофамильци отсутствуют"!

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.

[Serge_Bliznykov]

Вы молодец, что сами решаете.
Поэтому подскажу чуть-чуть..
решений вагон и маленькая тележка. Все они различны по скорости, эффективности и затратам памяти.
Так, навскидку, основные пути
1) если можно использовать компоненты Delphi
то через TStringList задача решается очень просто и эффективно. правда, я не уверен, что Вам допустимо использовать всё, что выходит за рамки Pascal

2) в лоб - все фамилии из файла читаем в массив
дальше - либо сортируем массив и сравниваем каждый элемент со следущих (если совпал - есть однофамильцы), либо в цикл берём каждый очередной элемент массива и сравниваем с оставшимися - совпал - выход из цикла - "Однофамильцы есть"...

p.s. я на вашем месте разделил программу на две части - одна создаёт файл данных, вторая - читает/анализирует.
Там и проще и нагляднее и логичнее... имхо...