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

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