Сведения о сдаче экзаменов учениками 9-х классов некоторой средней школы

program c4;
Var Saf:Array[1..100] Of Integer;
Var FI: Array[1..100] of String;
Var p2p,i,min1,min2,min3,n:Integer;
Var s: String;
begin
Writeln('Введите количество учащихся...');
Read(N);
Writeln ('Введите строку, содержащую сведения о сдаче экзамена');
For i:=1 to N do begin
Readln(s);
p2p:=PosEx(' ',s,pos(' ',s)+1);{позиция второго пробела в строке}
FI[i]:=Copy(s,1,p2p-1);{заполняем массив Фамилией и именем каждой строки}
Delete(s,1,p2p);{удаляем из исходной строки ФИ с пробелом}
SAF[i]:=(StrToInt(copy(s,1,1))+StrToInt(Copy(s,3,1))+StrToInt(copy(s,5,1)))div 3;
{заполянем массив средними значениями трех оценок}
end;
min1:=20;min2:=20;min3:=20; {находим третье минимальное среднее значение}
For i:=1 to N do begin
If Saf[i]< min1 then begin
min3:=min2;
min2:=min1;
min1:=Saf[i];
end
else If Saf[i]<min2 then begin
min3:=min2;
min2:=Saf[i];
end
else If Saf[i]<min3 then min3:=Saf[i];
end;
For i:=1 to N do {выводим всех учеников, у которых среднее значение баллов 
меньше или равно третьему минимальному значению}
   If Saf[i]<=min3 then writeln (Fi[i]);
   end.

program c4;
var Sum: Array[1..100] Of Integer;
var FI: Array[1..100] of String;
var p2p, i, min1, min2, min3, n: Integer;
var s: String;
begin
  Writeln('Введите количество учащихся...');
  Readln(N);
  Writeln('Введите строку, содержащую сведения о сдаче экзамена');
  for i := 1 to N do 
  begin
    Readln(s);
    p2p := PosEx(' ', s, pos(' ', s) + 1);{позиция второго пробела в строке}
    FI[i] := Copy(s, 1, p2p - 1);{заполняем массив Фамилией и именем каждой строки}
    Delete(s, 1, p2p);{удаляем из исходной строки ФИ с пробелом}
    Sum[i] := (StrToInt(copy(s, 1, 1)) + StrToInt(Copy(s, 3, 1)) + StrToInt(copy(s, 5, 1)));
    {заполняем массив суммой трех оценок}
  end;
  min1 := 20;min2 := 20;min3 := 20; {находим третье минимальное среднее значение}
  for i := 1 to N do 
  begin
    if Sum[i] < min1 then begin
      min3 := min2;
      min2 := min1;
      min1 := Sum[i];
    end
    else if Sum[i] < min2 then begin
      min3 := min2;
      min2 := Sum[i];
    end
    else if Sum[i] < min3 then min3 := Sum[i];
  end;
  for i := 1 to N do {выводим всех учеников, у которых среднее значение баллов 
    меньше или равно третьему минимальному значению}
    if Sum[i] <= min3 then writeln(Fi[i]);
end.