Из заданной последовательности слов, удалить слова содержащие числа

Program Zad17;
var
s,f: string;
 q,a,b,j:integer;
begin
Writeln ('Введите строку:');
readln(s);
s:=s+' ';
repeat
q:=pos(' ',s);
for a:=1 to q-1 do
if ((s[a]>'a')and(s[a]<'z')) then
for b:=1 to q-1 do  begin
f:=f+s[a];
f:=f+' ';
end;
delete(s,1,q);
until q=0;
Writeln ('Обработанная строка:');
writeln(f);
end.

Program Zad17;
 
var
  s,f: string;
  q,a: integer;
  FDig : Boolean;
begin
  Writeln ('Введите строку:');
  Readln(s);
  f := ''; {Инициализация строки результата.}
  s:=s+' ';
  repeat
    q:=pos(' ',s); {Ищем пробел.}
    {Проверяем, есть ли цифры на позициях 1..(q-1).}
    FDig := False; {True - в слове обнаружены цифры, иначе - False.}
    for a:=1 to q-1 do
      if s[a] in ['0'..'9'] then {Если обнаружена цифра.}
      begin
        FDig := True;
        Break;
      end;
    {Если цифр нет, то добавляем подстроку вместе с пробелом к строке результата.}
    if not FDig then
      f := f + Copy(s, 1, q);
    {Из исходной строки удаляем просмотренную часть (вместе с пробелом).}
    Delete(s, 1, q);
  until q=0;
  Writeln ('Обработанная строка:');
  Writeln(f);
  Readln;
end.