Вывод всех возможных перестановок строки Abc Опции

[Natalia]

Доброго времени суток!
Долго пыталась решить задачу: вдоль, поперёк, с помощью научного тыка, с помощью книг и интернета, поиском в FAQ, перерыла весь форум. Не могу понять задачу. Не понимаю смысла в процедуре рекурсии.
Задача следующая:
Вывести на экран все возможные перестановки строки символов, вводимых с клавиатуры. Например, ввожу "abc", а мне должно быть выведено шесть его перестановок: abc,cba,cab и т. п.
Я её написала для трёх букв без рекурсии. А с рекурсией бред получается такой:
program recur;
procedure swap(var s:string; i,j:integer);
var ch:char;
begin
ch:=s[i];
s[i]:=s[j];
s[j]:=ch;
end;
procedure rec(s:string;n:integer);
var i:integer;
begin
for i:=1 to n-1 do
begin
swap(s,n,i);
rec(s,n-1);
swap(s,n,i);
writeln(s);
end;
if n=1 then writeln(s);
end;
var s:string;
n:integer;
begin
writeln('‚Введите строку');
readln(s);
rec(s,4);
readln;
end.

Помогите, пожалуйста, понять, как реализуется в программе процедура рекурсии.