Дана строка символов. Удалить из исходной строки все цифры.

[Striker14]

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

[Sazary]

i:=1;
while i<=length(s) do
 begin
 if s[i] in ['0'..'9'] then delete(s,i,1)
 else inc(i);
 end;

[Striker14]

Спасибо) но как вывести преобразованную строку?

[Sazary]

Сообщение от Striker14

но как вывести преобразованную строку?

Это шутка?

writeln(s);

[Striker14]

Спасибо) я прост перемудрил, зачем-то цикл ещё 1 написал