Packal sorry

[HECTOR.A.]

Удалить из строки все числа.При этом строка считывается из текстового файла.
извините не так задание написал
Заранее спасибо

[alex_fcsm]

Можно было в той же теме подправить

var f:text;
    s:string;
    D:set of char;
    i:integer;
begin
assign(f,'c:\1.txt');
reset(f);
readln(f,s);
close(f);
D:=['0'..'9'];
i:=1;
writeln(
s);
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.