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

program zz1;
var x, y:integer; // задаем переменную целого типа
begin
for x:=1 to 10 do // организуем цикл на десять повторов
begin
y:= random(11); // получаем случайное число в спектре от нуля до 10
write(y:5); // выводим ответ в строчку в формате 5 знаков для всего числа
end;
end.