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

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новая строка: абвенвав