Разработать программу, которая осуществляет поиск в массиве записей информации о студенте, фамилия которого вводится с клавиатуры

Uses Crt ; 
Type  
Data=Record 
              Year     : 1980.. 1995; 
              Month : 1..12:           
              Day       : 1..31;           
           End;
Zap = Record 
                Fam        : string[20]; 
                Birthday : data;          
            End;
Var  fb : array[1..25] of zap; 
        Fff : string[20]; 
I,j,m,n: byte;
Key      : Boolean; 
Begin
C lrScr;
Writeln (‘Лабораторная работа 8’);
Writeln (‘Наумов Павел’);
Writeln (‘Группа СБ-21’);
Writeln (‘Вариант 14’);
Writeln(‘Найти информацию о студенте, фамилия которого вводится с клавиатуры.’);
Writeln(‘Введите данные о количестве студентов N<= 25’);
Readln (n);
M:=0;
{Ввод исходных данных с клавиатуры поле за полем}
Repeat
   M:=M+1;
   Write (‘Ведите фамилию     :’); 
    Readln(fb[m].fam);
    Write (‘Ведите год рождения     :’); 
    Readln(fb[m].birthday.year);
    Write (‘              месяц          :’); 
    Readln(fb[m].birthday.month);
    Write (‘               день             :’); 
    Readln(fb[m].birthday.day);
 Until n=m;
Writeln;
{Вывод исходных данных на экран с помощью оператора With}
Writeln(‘Список студентов группы   ’);
 Writeln;
For I:=1 to M do
    With fb[i] do
         Begin
               Write(I:2, Fam:17);
                With birthday do
                         Writeln(Year:6, Month:4, Day:4);
         End;
Writeln;
{Поиск  данных а массиве записей}
Writeln (‘Введите фамилию’); 
Readln(fff);
I:=0;
Key:=False {Признак “данные не найдены”}
Repeat
I:=i+1;
If fb[i].fam= fff then Key:=True;
Until Key Or (i=m);
{Вывод результатов}
If Key Then   {Если такой студент найден, то выводим данные}
    With fb[i] do
           Begin
                 Writeln(‘Данные о студенте  :’);
                  Write (Fam:18, ‘ ‘);
                        With birthday do
                               Writeln (day:2,’:’, month:2,’:’, year:5,’года’);
End
Else 
Writeln(‘Данные о студенте ’, fff:18,’ нет.’);
 End.

var f:text;
    s,s1:string;
    c:integer;
...............
begin
assign(f,'data.txt');
reset(f);
m:=0;
while not eof(f) do
 begin
  readln(f,s);//читаем строку
  m=m+1; //считаем
  fb[m].fam:=copy(s,1,pos(' ',s)-1);//фамилия до пробела
  delete(s,pos(' ',s)); //удаляем
  s1:=copy(s,1,pos(' ',s)-1);//копируем все числа
  val(s1,fb[m].birthday.year);//преобразуем их из строки
  delete(s,pos(' ',s));//удаляем
  s1:=copy(s,1,pos(' ',s)-1);
  val(s1,fb[m].birthday.month);
  delete(s,pos(' ',s));
  val(s,fb[m].birthday.day);//остаток строки день
 end;
close(f);
........
end.