Заполнить массив 20-ю случайными числами так, чтобы числа не повторялись.

program arr;
const b=40; //можно задать другое число, которое больше 19.
var a:array [1..20] of integer;
p, flag: integer;
begin
randomize;
for i: integer:= 1 to 20 do
begin
a[i]:=random(b) + 1; 
if i gt; 1 then for j: integer:=1 to i - 1 do
if a[i] = a[j] then
begin
flag:= 0;
while flag = 0 do
begin
flag:= 1;
a[i]:= random(b) + 1;
for k: integer:= 1 to i - 1 do if a[i] = a[k] then
begin
p:= 0;
flag:= flag * p
end
end
end
end;
for k: integer:= 1 to 20 do writeln (a[k] : 3)
end.