C4 ЕГЭ по информатике

program c4;
const
ourSc=50;
var
NameAndSurn,
MaxName1,
MaxName2:string[52];
a:char;
i,
N,
scNumb,
ball,
MaxbaLL1,
MaxbaLL2,
sum1,
sum2:integer;
begin
readln(N);
MaxbaLL1:=0;MaxbaLL2:=0;sum1:=0;sum2:=0;
for i:=1 to N do begin
 NameAndSurn:=' ';
repeat
 read(a);
 NameAndSurn:=NameAndSurn+a
 until a=' ';
repeat
 read(a);
 NameAndSurn:=NameAndSurn+a
 until a=' ';
readln(scNumb,ball);
 if scNumb=ourSc then
 if ball>MaxbaLL1 then begin{(1)>первого}
 MaxbaLL2:=MaxbaLL1;
 MaxName2:=MaxName1;
 sum2:=sum1;
 MaxbaLL1:=ball;
 MaxName1:=NameAndSurn;
 sum1:=1
end
 else
   if ball=MaxbaLL1 then begin {(2)=первому}
    sum1:=sum1+1;
    maxName2:=NameAndSurn;
    MaxbaLL2:=ball;
   end
 else
    if ball=MaxbaLL2 then begin {(3)=второму}
     sum2:=sum2+1;
     MaxName2:=NameAndSurn;
    {В книге(в ответах) на этом месте стоит команда MaxbaLL2:=MaxbaLL1,Зачем?}
    end
 else
     if ball>MaxbaLL2 then begin {(4)>второго}
      sum2:=1;
      maxbaLL2:=ball;
      MaxName2:=NameAndSurn;
     end;
   {В книге(в ответах) идёт продолжение else
                                        if ball:=MaxbaLL2 then begin 
                                          sum2:=sum2+1
                                          end;}
     end;                                     
if (sum1=2)or(sum1=1)and(sum2=1) then begin
 writeln(MaxName1);
 writeln(MaxName2)
end
else
if (sum1=1)and(sum2>1)then
writeln(MaxName1)
else
writeln(sum1)
end.