Помогите написать программу в паскале. Заполните массив из N элементов случайными числами в интервале [1, N] так, чтобы в массив обязательно вошли все числа от 1 до N (постройте случайную перестановку). Пример: Массив: 3 2 1 4 5

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.