Результаты соревнований по плаванию для n спортсменов хранятся в массиве k. выбрать и напечатать лучший из них. массив заполнить с клавиатуры.

Const
  N = 5;                     {количество спортсменов}
var
  K : array [1..N] of integer;
  i, max : integer;
begin
  for i := 1 to N do
  begin
    write('Результат спортсмена номер: ', i, ': ');
    readln(K[i]);
  end;
  max := K[1];
  for i := 2 to N do
    if K[i] > max then
      max := K[i];
  writeln('Максимальный результат: ', max);
end.