Составить программу, определяющую учеников класса, являющимися хорошистами и отличниками по итогам года

[Roman@-]

ЗАДАЧА-Составить программу, определяющую учеников класса, которые являются хорошистами и отличниками по итогам года.
РЕШЕНИЕ-

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.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[SWAT92Shtorm]

Напиши какие входные параметры =)

[Space91]

Это творение хоть робит? или какие то проблемы имеются в листенге?

[Yurochka]

а прога то не рабочая, есть некоторые проблемы