ПОМОГИТЕ ПЕРЕДЕЛАТЬ ПРОГРАММУ ИЗ PASCAL В DELPHI

[Siber_Dec]

uses crt; // объявляем модули
var // раздел переменных
a:array [1..9] of integer; // глобальные переменные
b:array [1..9] of integer; // 2 глобальных массива
j,i,n: integer;
procedure per (j:integer); // начало процедуры per
var // локальные ппеременные
i,k: integer;
begin
for i:=1 to n do // цикл от 1 до n
if b[i]=0 // если массив b = 0
then begin a[j]:= i; // то массив а присваиваем значение i
b[i]:=1; // массив b = 1
if j=n // если переменная j = n
then begin // то
for k:=1 to n do write (a[k]); // выводим на экран массив а
for k:=n+1 to 10 do write (' '); // выводим на экран пустоту
end
else per(j+1); // иначе процедуру начинаем сначала - рекурсивный вызов
b[i]:=0; // массив в=0 //элементу массива b[i] присваиваем 0
end;
end;
begin // начало основной программы
writeln ('Vvedite kol-vo elementov ==>');
readln(n); // вводим количество элементов
if (n>9) or (n<1) then exit; // если n>9 или n<1 то программа прекращает свою работу
writeln ('Perestanovki ==>');
for i:=1 to n do
b[i]:=0;
per (1); // выполняется перестановка
writeln;
readkey;
end.

[KORT]

Siber_Dec огромное спасибо за дополнение..........