Помогите Помогите Пожалуйста Решить Одну Задачку в Паскале!!!

[VisTBacK]

Помогите Пожалуйста Решить Одну Задачку в Паскале!!!Буду очень благодарен!!!
Вот собственно:

Дана строка, состоящая из цифр и букв. Сформировать другую строку,содеражащую только цифры предыдущей строки,в том же порядке.
S1:=`12ab4c8d3`
S2:=`12483`

Заранее СПАСИБО!

[_SERGEYX_]

function OnlyNumbers(var aInput: string; aArray: string): string;
begin
  while length(aInput) <> 0 do
  begin
    if pos(aInput[1], aArray) = 0 then
      delete(aInput, 1, 1)
    else
    begin
      result := result + aInput[1];
      delete(aInput, 1, 1);
    end;
  end;
end;

Использование

var s: string;
begin
s:='1gf2gf45gtyrr8ere4ee';
s:= OnlyNumbers(s,'1234567890');
ShowMessage(s);
end;

[VisTBacK]

А моЖно ее как нибудь через delete?

[SERG1980]

дык вам её и написали через delete

[VisTBacK]

точнО...забел получился...=)

[puporev]

Не привыкайте из задачки в одно действие создавать громоздкие структуры, проще надо делать. Тем более, если у Вас Турбо Паскаль, то программа вообще не будет работать. По условию из одной строки нужно сделать другую, поэтому delete вообще не надо.

uses crt;
const m=['0'..'9'];
var s1,s2:string;
    i:integer;
begin
clrscr;
write('s1: ');readln(s1);
s2:='';
for i:=1 to length(s1)do
if s1[i] in m then s2:=s2+s1[i];
write(s2);
readln
end.

[VisTBacK]

Всем БОЛЬШОЕ СПАСИБО!=)ОЧЕнь Благодарен!