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

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

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

var i, j, k: integer;
    a: array [1..10] of integer;
begin
  randomize();
  repeat
   k := 0;
   for i := 1 to 10 do a[i] := random(21);
   write('Исходный массив:   ');
   for i := 1 to 10 do write(a[i], ' ');
   writeln();
   for i := 1 to 10 do
    for j := 1 to 10 do
     if (a[i] = a[j]) and (i <> j) then
      begin
       k := 1;
       break;
      end;
  until k = 0;
  write('Уникальный массив: ');
  for i := 1 to 10 do write(a[i], ' ');
  readln();
end.