Надо в паскале удалить все числа из строки, помогите пожалуйста, не знаю как сделать

var f,s:string;i:integer;beginread(s);for i:=1 to length(s) do if(s[i]<'0')or (s[i]>'9')then f:=f+s[i];writeln(f);end.