Write a program that outputs 10 random numbers less than ten?

program zz1;
var x, y: integer; // set a variable of integer type
begin
for x: = 1 to 10 do // organize a loop for ten repetitions
begin
y: = random (11); // get a random number in the range from zero to ten
write (y: 5); // output the answer to a string in the format of five characters for the whole number
end;
end.