Вывести все результаты спортсменов, и конечно кто занял 1, 2 и 3 место

  Var u1,u2,u3,u4,u5:Array[1..3] of Real; {длина прыжков 5 участник}
      Names:Array[1..5] of String;             {Имена 5 участников} 
      i,j:integer; u:Array[1..5] of Real; s:real;    
Begin
  Writeln('Введите имена от 1 до 5 участников');
  For i:=1 to 5 do
    Readln(Names[i]);
  Writeln('Теперь введите длины прыжка (1 участник = 3 прыжка)');
  Writeln('Прыжки участника ',names[1],':');
  For i:=1 to 3 do  
    Read(u1[i]);  u[1]:=u1[1]+u1[2]+u1[3];
  Writeln('Прыжки участника ',names[2],':');  
  For i:=1 to 3 do  
    Read(u2[i]);  u[2]:=u2[1]+u2[2]+u2[3];
  Writeln('Прыжки участника ',names[3],':');  
  For i:=1 to 3 do  
    Read(u3[i]);  u[3]:=u3[1]+u3[2]+u3[3]; 
  Writeln('Прыжки участника ',names[4],':');  
  For i:=1 to 3 do  
    Read(u4[i]);  u[4]:=u4[1]+u4[2]+u4[3];
  Writeln('Прыжки участника ',names[5],':');  
  For i:=1 to 3 do  
    Read(u5[i]);  u[5]:=u5[1]+u5[2]+u5[3];
  s:=u[1];  
  For i:=1 to 5 do
    If s<u[i] Then Begin s:=u[i]; j:=i End;
  Writeln('Участник ',names[j],' занимает 1-ое место');
  u[j]:=0; s:=u[1];
  For i:=1 to 5 do
    If s<u[i] Then Begin s:=u[i]; j:=i End;
  Writeln('Участник ',names[j],' занимает 2-ое место');
  u[j]:=0; s:=u[1];
  For i:=1 to 5 do
    If s<u[i] Then Begin s:=u[i]; j:=i End;
  Writeln('Участник ',names[j],' занимает 3-ое место');
  u[j]:=0; s:=u[1];
End.