program PascalGuru;
 
var f,t:text;
    s:string;
{--------------------------------------------}
function delete_cifra(s:string):string;    {функция вычёркивания}
label 1;
var cifra:string;
    i:integer;
begin
cifra:='0123456789';
1:
for i:=1 to length(s) do
    if pos(s[i],cifra)<>0 then begin delete(s,i,1); goto 1; end;
delete_cifra:=s;
end;
{--------------------------------------------}
begin
assign(f,'file_in.txt'); reset(f);
assign(t,'file_out.txt');rewrite(t);
 
while not eof(f) do
      begin
      readln(f,s);        {считывание с файла}
      writeln(t,delete_cifra(s));  {запись в файл преобразованной строки}
      end;
writeln('Fail "file_out.txt" uspeshno zapisan...');
 
close(f);close(t);
readln;
end.