Сведения о сдаче экзаменов учениками 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.

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;