Как сделать генератор случайных чисел в pascal?

 1
 2
 3
 4
 5
 6
 7
 8
 9
10

var a, i: integer;
begin
  randomize; // пишем до использование random() для того чтобы перемешать числа
  for i:= 0 to 100 do
    begin
      a:= random(10);  // получаем случайное число от 0 до 10
      writeln(a);
    end;
  readln;
end;