Удаление чисел из строки

[kuy]

Здравствуйте, помогите с программой пожалуйста.
Написал код, вроди всё правельно, но числа из строки иногда не все удаляются. В чём тут проблема?? (Дополнительную строку использовать нельзя.)

var
  s:string;
  i: integer;
begin
 writeln('Enter string: ');
 readln(s);
   for i:=1 to length(s) do
     begin
      if s[i] in ['0'..'9'] then delete(s,i,1);
     end;
 writeln('Result:');
 writeln(s);
 readln;
end.

[Stilet]

for i:=1 to length(s) do

Заменить на

for i:=length(s) downto 1 do