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

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

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.