не могу разобраться!!!!задача на рекурсию! все перестановки введеного слова...объясните построчно!

[inna1990]

uses crt;
var count:array[char] of integer;
currStr:string; str: string;
i:integer;
procedure Func;
var c:char;
begin
writeln(currStr);
for c:=#0 to #255 do
if count[c]>0 then begin
dec(count[c]);
currstr:=currstr+c;
func; delete(currStr,length(currStr),1);
Inc(Count[c]);
end
end;
BEGIN
        clrscr;
        write('vvedite stroku:');
        readln(str);
        for i:=1 to Length(str) do
        inc(count[str[i]]);
        currstr:='';
        func;
        readln;
END.

кто может объясните построчно!!!!что мы в процедуре делаем((((