Найти минимальное время прохождения 100-метровой дистанции 25 спортсменов, если время

Вариант со случайными числами

var i,min,k:integer;

begin

min:=100;

randomize;

for i:=1 to 25 do begin k:=random(8,65); if klt;min then min:=k; end;

writeln(min);

end.

Вариант с вводом чисел с клавиатуры

var i,min,k:integer;

begin

min:=100;

for i:=1 to 25 do begin readln(k); if klt;min then min:=k; end;

writeln(min);

end.