Определить минимальное значение среди чисел и вывести его на экран - Pascal ABC

Формулировка задачи:

Помогите пожалуйста. Сгенерировать k случайных чисел из диапазона от a до b (a и b ввести с клавиатуры). Определить минимальное значение среди них и вывести его на экран. Переменную k задать с клавиатуры.

Решение задачи: «Определить минимальное значение среди чисел и вывести его на экран»

Листинг программы

var k,a,b,x,y,i:integer;
begin
randomize;
writeln ('k,a,b');
readln (k,a,b);
y:=b;
for i:=1 to k do begin
x:=a+random(b);
if x<y then y:=x;
end;
writeln (y);
readln;
end.

Объяснение кода листинга программы

Создается переменная k, которая представляет собой целое число.
Создаются переменные a и b, которые представляют собой целые числа.
Создается переменная x, которая представляет собой целое число.
Создается переменная y, которая представляет собой целое число.
Переменные k, a, b и x инициализируются случайными значениями.
Значение переменной y устанавливается равным значению переменной b.
Запускается цикл for, который выполняется k раз.
Внутри цикла переменная x инициализируется как сумма переменной a и случайного числа от 0 до переменной b.
Если значение переменной x меньше значения переменной y, то значение переменной y устанавливается равным значению переменной x.
После завершения цикла, значение переменной y выводится на экран.
Программа завершается и ожидает ввода пользователя.