Процедура, извлечение цифр сс стринга Опции

[Alex7]

Код

Создать процедуру(желательно) которая будет извлекать цифры из заданого символьного ряда.

Вот такое нужно сделать.

Program notNumeral;
uses crt;
Var    f1,f2: text;
    st,fname: string;
Function notnum(st:string):string;
Var i:byte;
    num: set of char;
begin
num:=['0','1','2','3','4','5','6','7','8','9'];
 For i:=1 to length(st) do
If st[i] in num then delete(st,POS(st[i],ST),1);
notnum:=st
end;

Begin
Writeln('Vvedit rad');
Readln(st);
Writeln(notnum(st));
readln;
End.

Вот такое я реализовал.
Но как мне лучше обойти delete() ? или как его правильно использовать? А то он, помоему и не работает верно.

[Alex7]

Блин, я тя тоже порой не понимаю, volvo.
Я ж сказал, что нужно сделать процедуру, которая должна удалять все цифровае символы из стринга(значит олучить мы должны стринг)!
Ввод:

Код

fj654fhj65fhj dfh6j54dg td78 4d6fh5j 6578 dh652dg1hjk9t871hjdg76h

Преобразованый стринг:

Код

fjfhjfhj dfhjdg td dfhj  dhdghjkthjdgh

вот и всё, чо ту непонятного?

Function notnum(st:string):string;
Var i:byte;
    num: set of char;
begin
num:=['0','1','2','3','4','5','6','7','8','9'];
 For i:=1 to length(st) do
If st[i] in num then delete(st,POS(st[i],ST),1);
notnum:=st
end;

Вот тут, в функции, должно это все реализоваваться, но оно не работает! Я не вижу ошибки! А хочу понять почему не работает!
Ведь

If st[i] in num then delete(st,POS(st[i],ST),1);

тут delete должен работать?!
А оно мне выдает ваще левую строчку в результате!