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

uses crt;
const LIM = 100;
var Info: array[1..LIM] of record
name: string;
sum: integer;
end;
i, k, N, mark, min1, min2, min3: integer;
c: char;
begin
readln(N);
{ ввод исходных данных }
for i:=1 to N do begin
Info[i].name := '';
for k:=1 to 2 do
repeat
read(c);
Info[i].name := Info[i].name + c;
until c = ' ';
Info[i].sum := 0;
for k:=1 to 3 do begin
read(mark);
Info[i].sum := Info[i].sum + mark;
end;
readln;
end;
{ поиск трех минимальных }
min1 := 20; min2 := 20; min3 := 20;
for i:=1 to N do begin
if Info[i].sum <min1 then begin
min3 := min2; min2 := min1;
min1 := Info[i].sum;
end
else if Info[i].sum <min2 then begin
min3 := min2;
min2 := Info[i].sum;
end
else if Info[i].sum <min3 then
min3 := Info[i].sum;
end;
{ вывод результата }
for i:=1 to N do
if Info[i].sum <= min3 then
writeln(Info[i].name);
end.

uses crt;
 
type a=record;
name: string;
sname : string;
srbal : real;
end;
 
var
   i:integer;
   b: array[1..5] of a;
begin
   for i:=1 to 5 do
       with b[i] do
            begin
               writeln('Введите информацию о ',i,'-ом ученике');
               write('Фамилия: ');
               readln(sname);
               write('Имя :');
               readln(name);
               write('Средний бал :');
               readln(srbal);
            end;
clrscr;
   for i:=1 to 5 do
   with b[i] do
       if srbal<4 then begin
                                 writeln(name[i],' ',sname[i],' ',srbal);
                       end;
end.

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.