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