В соревнованиях по прыжкам в длину участвуют 25 спортсменов, с клавиаиуры ввести номер спортсмена и его результат (номер спортсмена не связан с очередностью). Написать программу, которая выводит на экран номер и результат худшего и лучшего спортсменов. все это как то связанно с оператором повтора FOR

program zz1;

var a, b, n, i, max, min:integer; / / задаем переменные целого типа

begin

max:=0; min:=100000;

for i:=1 to 25 do

begin

write (' введите результат ', i,' - го спортсмена '); / / вводим с клавиатуры число

read (n);

if n > max then begin max:=n; b:=i; end; / / проверяем, если число больше максимального, то записываем его в максимальное и запоминаем номер

if n < min then begin min:=n; b:=i; end; / / проверяем, если число меньше минимального, то записываем его в минимальное и запоминаем номер

end;

write (' результат лучшего спортсмена = ', max, ' его номер = ', b); / /выводим ответы

write (' результат худшего спортсмена = ', min, ' его номер = ', b);

end.