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

Const m = 50;var n,s,d,i,j:integer;A, B:Array[1..m] of integer;beginwrite(Введите число элементов n);readln(n);for i:=1 to n dobeginb[i]:= i;write(b[i]:3)end;writeln;while (d 0) and (s = b[j]) thenbegin  d:= d +1; a[d]:= s; b[j]:= -1; end;end;end;
for i:=1 to n dowrite(A[i]:3);
end.