результаты соревнований по плаванию для 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.