программа на Packal

[HECTOR.A.]

Удалить из строки все числа.
Заранее спасибо

[alex_fcsm]

var s:string;
    D:set of char;
    i:integer;
begin
writeln('Input String');
readln(s);
D:=['0'..'9'];
i:=1;
while i<=length(s) do
 begin
  if s[i] in D then delete(s,pos(s[i],s),1)
   else inc(i);
 end;
writeln(s);
end.