Задача на записи.Вычистить средний балл группы и распечатать список студентов, фамилии которых начинаются на букву А

TYPE student=record
  fam:string;
  godroj:1950..2011;
  alg,disk,ist:2..5;
  end;
var
    s:array[1..8] of student;
    i,n:integer;  sr:real;
begin
 writeln('Введите данные о абитуриентах');
 for i:=1 to 8 do
 begin
 writeln(i,' студент');
 with s[i] do
  begin
   write('Фамилия: '); readln(fam);
   write('Год рождения: '); readln(godroj);
   write('Оценки вст.экз. (Алгоритмизация,Дискретный анализ,История) ');
     read(alg);
     read(disk);
     read(ist);
  end;
 end;
 
sr:=0;
for i:=1 to 8 do
begin
with s[i] do
sr:=sr+alg+disk+ist;
end;
 
sr:=sr/6;
writeln('Средний бал группы= ',sr);
 
writeln('Список студентов , фамилии которых начинаются на букву А:');
 
for i:=1 to 8 do
begin
with s[i] do
begin
N:=length(fam);
if fam[1]='А' then writeln(fam);
end;
end;
 
END.

var s,m1,m2,c1,c2,i:integer;
begin
write('Начало и конец передачи (час) : ');
readln(c1,c2);
write('Начало и конец передачи (минут) : ');
readln(m1,m2);
if c1=c2 then s:=(m2-m1)*60
else s:=((c2*60+m2)-(c1*60+m1))*60;
writeln('Продолжительность передачи в секундах : ',s);
end.