Составить программу которая выводит 10 случайных чисел, меньше десяти?

program zz1;

var x, y:integer; / / задаем переменную целого типа

begin

for x:=1 to 10 do / / организуем цикл на десять повторов

begin

y: = random (11); / / получаем случайное число в диапазоне от нуля до десяти

write (y:5); / / выводим ответ в строку в формате пять знаков для всего числа

end;

end.