как доделать программу: Список группы студентов: Ф. И. О., год рождения, место жительства, сданные экзаме

program One; 
 
type anketa=record 
   fio: string[20]; 
   dat_r: string[8]; 
   adres: string[50]; 
   grupp: string[3];
   exams:string[20];
   bal: real;
end;
  var student: array [1..10] of anketa; 
    key:string;
    s:real;
    i,k:byte;
    fff:string[3];
begin 
   i:=0; s:=0;
   repeat
   i:=i+1;
   writeln ('введите сведения о студенте'); 
   
   writeln ('введите фамилию имя отчество'); 
   readln (student[i].fio);
    with student[i] do begin
   writeln ('введите дату рождения');
   readln (dat_r); 
   writeln ('введите адрес'); 
   readln(adres); 
   writeln ('введите группу'); 
   readln (grupp); 
   writeln ('введите сданный экзамен'); 
   readln (exams);     
   writeln ('введите средний бал 0..5');
   readln(bal); 
   s:=s+bal;
   end;
   writeln ('Закончить ввод данных - y'); 
   readln(key);   
 until 
 key='y';
 write ('Поиск студентов. Введите три первые буквы фамилии:');
   readln(fff);
    writeln('______________________________________');
   for k:=1 to i do 
  
  if fff=copy(student[k].fio,1,2) then   {условие поиска студентов по первым  
                                              буквам фамилии}   
   with student[k] do begin
   writeln(' № студента: ',k); 
   writeln(' ФИО студента: ',fio);
   writeln(' дата рождения : ',dat_r); 
   writeln(' адрес : ',adres); 
   writeln(' группа : ',grupp);
   writeln('сданный экзамен:',exams);
   writeln(' ср. бал : ',bal); 
   writeln('______________________________________'); 
                    end;
  
                    writeln(' ср. бал всех студентов: ',s/k:0:1);      
end.