помогите, как конвертировать данный алгоритм с поддержкою рекурсии ( в pascal

Помогите, как конвертировать данный метод с подмогою рекурсии ( в pascal abc)
Слова в тексте разбиты пробелами. Какие знаки есть в каждом слове?
Решение:
function simbols(st:string):set of char;
var
s:string;
n:integer;
mc:set of char;
begin
mc:=[];
n:=pos(' ',st);
if ngt;0 then
begin
s:=copy(st,1,n-1);
Delete(st,1,n);
result:=simbols(st);
end
else s:=st;
foreach var c:char in s do mc:=mc+[c];
if result=[] then result:=mc else if mclt;gt;[] then result:=result*mc;
end;

var
s:string;
begin
readln(s);
writeln(simbols(s));
end.