Надо решить следующую : найти минимальное число из 10 случайных чисел. диапазон генерации случайного числа задается пользователем в начале работы программы. (использовать форматированный ввод/вывод)

Var a,k.b:integer;
begin
b:=10000000;
for k:=1 to 10 do begin
read(a); if a<b then b:=a end;
write(b);
end.