Определить, учащиеся каких классов в данной школе набрали меньше всех баллов

program z;
type
    olymp=record;
    f:string;
    n,c:integer;
    b:real;
end;
var i,n,k,j,sc:integer; s,sa,min:real;
a:array [1..20] of olymp;
begin
     writeln('Введите кол-во учеников');
     readln(n);
     writeln('Ввод информации по ученикам');
     for i:=1 to n do
         with a[i] do
              begin
                   writeln(i,' ученик');
                   write('Фамилия: ');
                   readln(f);
                   write('Школа: ');
                   readln(n);
                   write('Класс: ');
                   readln(c);
                   write('Результат: ');
                   readln(b);
              end;
     s:=0; k:=0;
     writeln;
     writeln('Введите номер школы');
     readln(sc);
     writeln;
     for i:=1 to n do
         with a[i] do
              begin
                   if n=sc
                      then
                          begin
                               s:=s+b;
                               k:=k+1;
                          end;
              end;
     sa:=s/k;
     writeln('Ученики школы №',n,', набравшие наименьшее кол-во баллов среди своих:');
     for i:=1 to n do
         with a[i] do
              if n=sc
                 then
                     begin
                          if b<sa
                             then
                                 writeln(f,'. Класс: ',c,'. Результат: ',b);
                     end;
     with a[1] do
          min:=b;
     for i:=1 to n do
         with a[i] do
              begin
                   if b<min
                      then
                          begin
                               min:=b;
                               j:=i;
                          end;
              end;
     with a[j] do
          writeln('Участник олимпиады, набравший минимум баллов среди всех остальных -  ',f,'. Номер школы: ',n,'. Класс: ',c,'. Результат: ',b);
end.