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

[ALEXandr20333]

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

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.

почему не так как надо выводит и ничего не удаляет

[Stilet]

Предложу свой вариант:

program Project1;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes
  { you can add units after this };

var s:string; a:string;
  i,count:integer;b:boolean;
begin
 s:='Hello m44y world';
 count:=1;
 b:=true;
 i:=1; while (i<=length(s)) do begin
   if (s[i]>='0') and (s[i]<='9') then b:=false else
   if s[i]=' ' then begin
    if b then write(a,' ');
    a:=''; b:=true;
    inc(i);
    end;
    a:=a+s[i];
   inc(i);
 end; if b then write(a,' ');
 readln;
  { TODO -oUser -cConsole Main : Insert code here }

end.