Решение задачи на Pascal

program ttt;
var ball, sum1, sum2 : real;
   i, j : integer;
begin
   sum1 := 0; sum2 := 0;
   for i := 1 to 2 do
   begin
       writeln('Введите показатели баллов для ',i,'-го спортсмена');
       for j:=1 to 10 do
       begin
           write('Балл за ',j,'-е соревнование =');readln(ball);
           if i = 1 then
              sum1 := sum1 + ball
           else
              sum2 := sum2 + ball;
       end;
    end;  
   
    if sum1 > sum2 then
         writeln('Победу одержал первый спортцмен. Счет ',sum1:5:2 ,' : ', sum2:5:2, ' в пользу первого спортсмена')
       else
           if sum1 = sum2 then
              writeln('Боевая ничья ! Счет ',sum1:5:2, ' : ', sum2:5:2)
              else
                  writeln('Победу одержал второй спортцмен Счет ',sum1:5:2, ' : ', sum2:5:2, ' в пользу второго спортсмена');
end.