Вывести список отличников

Program horosho;
uses crt;
type
ych=record
fio:string;
a:array[1..10] of 2..5;
pred:array[1..10] of string;
sr:real;
end;
mas=array [1..10] of ych;
var
s:mas;
i,i_pred,kol,kol_pred:integer;
bal_cl:real;
c:byte;
flag:boolean;
vyb:char;
begin
clrscr;
write('Введите количество студентов: ');
readln(kol);
write('Введите количество предметов: ');
readln(kol_pred);
flag:=false;
for i:=1 to kol do
begin
clrscr;
write(' # ',i,'. Введите ФИО ученика: ');
readln(s[i].fio);
if flag=false then
begin
for i_pred:=1 to kol_pred do
begin
write('Введите название дисциплины ',i_pred,': ');
readln(s[i].pred[i_pred]);
write('Bведите оценку по этому предмету: ');
readln(s[i].a[i_pred]);
end;
writeln('Запомнить список дисциплин? [y/n] ');
readln(vyb);
if (vyb='y') or (vyb='Y') then flag:=true;
end
else
begin
writeln('Вводите оценки по дисциплинам: ');
for i_pred:=1 to kol_pred do
begin
s[i].pred[i_pred]:=s[i-1].pred[i_pred];
write(s[i].pred[i_pred],': ');
readln(s[i].a[i_pred]);
end;
end;
end;
bal_cl:=0;
for i:=1 to kol do
begin
s[i].sr:=0;
for i_pred:=1 to kol_pred do s[i].sr:=s[i].sr+s[i].a[i_pred];
s[i].sr:=s[i].sr/kol_pred;
bal_cl:=bal_cl+s[i].sr;
end;
bal_cl:=bal_cl/kol;
clrscr;
writeln ('СПИСОК СТУДЕНТОВ: ');
for i:=1 to kol do
begin
clrscr;
writeln;
writeln(' # ',i,'. ',s[i].fio);
writeln;
writeln('**********ОЦЕНКИ********** **');
for i_pred:=1 to kol_pred do
writeln(s[i].pred[i_pred],' : ',s[i].a[i_pred]);
writeln('************************** **');
writeln('Средний бал: ',s[i].sr:4:2);
readln;
end;
clrscr;
writeln('Средний балл по классу: ',bal_cl:5:2);
writeln('1 - Вывести список отличников.');
writeln('2 - Вывести список хорошистов.');
writeln('3 - ВЫХОД.');
writeln(' -> ');
readln(c);
if (c<>1) and (c<>2) and (c<>3) then
begin
writeln('Nekorektnyi vybor!');
readln;
halt;
end;
case c of
1:begin
writeln('ОТЛИЧНИКИ: ');
for i:=1 to kol+1 do if s[i].sr=5 then writeln(s[i].fio);
end;
2:begin
writeln('ХОРОШИСТЫ: ');
for i:=1 to kol+1 do if (s[i].sr>=4) and (s[i].sr<5) then writeln(s[i].fio);
end;
3:halt;
end;
readln;
end.