Вывести на экран фамилии и имена трех худших по среднему баллу учеников - Pascal ABC - Ответ 1521272

uses crt;
const nmin=10;
      nmax=100;
type data=record
          fam:string[20];
          nam:string[15];
          ocn:array[1..3] of integer;
          srb:real;
          end;
var Info: array[1..nmax] of data;
          n,i,j,k:integer;
          x:data;
          s:string;
          c:integer;
begin
repeat
write('Количество ученикоа от ',nmin,' до ',nmax,' n=');
readln(N);
until n in [nmin..nmax];
{ ввод исходных данных }
writeln('Введите данные ',n,' учеников:');
writeln('В одной строке фамилия, имя и три оценки(2..5) через 1 пробел)');
for i:=1 to N do
 begin
  readln(s); //читаем строку, ввод делать точно
  with Info[i] do
   begin
    fam:=copy(s,1,pos(' ',s)-1); //выделяем фамилию
    delete(s,1,pos(' ',s));
    nam:=copy(s,1,pos(' ',s)-1);  //имя
    delete(s,1,pos(' ',s));
    srb:=0;
    for j:=1 to 3 do //оценки
     begin
      val(s[2*j-1],ocn[j],c);
      srb:=srb+ocn[j]; //считаем сумму
     end;
   srb:=srb/3;//ср. балл
  end;
 end;
 //сортируем по возрастанию
for i:=1 to n-1 do
for j:=i+1 to n do
if info[i].srb>info[j].srb then
 begin
  x:=info[i];
  info[i]:=info[j];
  info[j]:=x;
 end;
{ вывод результата }
writeln('Трое учеников с наименьшим ср. баллом:');
for i:=1 to 3 do
with info[i] do
 begin
  write(fam,' ',nam);
  for j:=1 to 3 do
  write(' ',ocn[j]);
  write(' ',srb:0:2);
  writeln;
 end;
writeln('Имеющие также ср. балл, равный третьему:');
k:=0;
for i:=4 to n do
if abs(info[i].srb-info[3].srb)<0.01 then
 begin
  k:=1;
  with info[i] do
   begin
    write(fam,' ',nam);
    for j:=1 to 3 do
    write(' ',ocn[j]);
    write(' ',srb:0:2);
    writeln;
   end;
 end;
if k=0 then write('Таких учеников нет');
end.