Помогиете, пожалуйста с рекурсией)

[Vrill]

Напишите функцию, которая удаляет из переданной ей символьной строки все символы, заключенные в угловые скобки '<' и '>' (вместе с
этими скобками).

[evg_m]

1. найти первую "<"
2. если нет, вернуть КАК РЕЗУЛЬТАТ исходную строку и закончить работу.
3. найти первую ">" после найденной "<" (см. п.1)
4. если нет, вернуть как результат исходную строку и закончить работу.
5. удалить из рабочей строки найденное (см. пп.1,3)
6. ВЫЗВАТЬ себя с НОВОЙ строкой (см. п.5) и вернуть результат вызова КАК свой результат. (ЭТО и будет РЕКУРСИЯ!!!!)

[CMY_3]

function DelSymb(s:string):string;
begin
    if length(s)=0 then DelSymb:=''
    else if s[1]<>'<' then DelSymb:=s[1]+DelSymb(copy(s,2,length(s)-1))
    else  DelSymb:=DelSymb(Copy(s,pos('>',s)+1,length(s)-pos('>',s)));
end;
begin
  writeln(DelSymb('TEST<15948>delnumb<ASDF>dellett'));
  readln;
end.