Задача 15 Урок 15

Задача 15 Урок 15:

Напишите программу, которая будет заполнять массив из 10 элементов случайными числами из диапазона от 0 до 20, при этом в полученном массиве не должно быть одинаковых значений.

program u15z15;
type newArr = array [1..10] of integer;
var i,b:integer;
    n: newArr;
begin
  randomize();
  b:=1;
  while b<10 do
  begin
    n[b]:=random(20);
    for i:=low(n) to b do        //сравниваем введенное число и предидущие
      if n[b]=n[i-1] then
      begin
        b:=b-1;
        break;
      end;
    b:=b+1;
  end;
  for i:=low(n) to high(n) do    //выводим полученный массив
    write(n[i], ' ');
  readln;
end.