Помогите написать программку в паскале. Заполните массив из N элементов случайными

const nmax=100;
var a:array[1..nmax] of integer;
n,m,i,j,x:integer;
f:boolean;
begin
randomize;
repeat
write(Размер массива от 2 до ,nmax, n=);
read(n)
until n in [2..nmax];
m:=1;
a[1]:=1+random(n+1);
write(a[1]);
for i:=2 to n do
begin
repeat
f:=false;
x:=1+random(n+1);
for j:=1 to m do
if a[j]=x then f:=true;
until f=false;
a[i]:=x;
m:=m+1;
write(a[i]:4);
end;
end.