Var s,st,sm: string;
i,k: integer;
begin
sm:='0123456789';
write('строка: '); readln(s);
st:='';
for i:=1 to length(s) do
begin
k:=pos(s[i],sm);
if k=0 then st:=st+s[i];
end;
writeln('новая строка: ',st);
end.
строка: 12абв1е2н12вав14
новая строка: абвенвав