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

const nmax=100;var a:array[1..nmax] of integer;n,m,i,j,x:integer;f:boolean;beginrandomize;repeatwrite(\'Размер массива от 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 dobeginrepeatf:=false;x:=1+random(n+1);for j:=1 to m doif a[j]=x then f:=true;until f=false;a[i]:=x;m:=m+1;write(a[i]:4);end;end.