Удалить в предложении все слова, имеющие символы цифр и распечатать получившееся предложение.

VAR
  s: STRING;
  i: BYTE;
BEGIN
  WRITELN('Enter text:');
  READLN(s);
  i := 1;
  WHILE i <= Length(s)
  DO
    BEGIN
      IF (s[i] >= '0') AND (s[i] <= '9')
      THEN
        BEGIN
          Delete(s, i, 1);
          Dec(i)
        END;
      Inc(i)
    END;
  WRITELN('Result text:');
  WRITELN(s);
  READLN
END.

VAR
  s, Temp: STRING;
  i, j, a, b: BYTE;
  Exp: BOOLEAN;
BEGIN
  WRITELN('Enter text:');
  READLN(s);
  s := s + ' ';
  a := 1;
  i := 1;
  WHILE i <= Length(s)
  DO
    BEGIN
      IF s[i] = ' '
      THEN
        BEGIN
          b := i;
          Temp := Copy(s, a, b - a);
          IF Temp <> ''
          THEN
            BEGIN
              Exp := FALSE;
              FOR j := 1 TO Length(Temp)
              DO
                IF (Temp[j] >= '0') AND (Temp[j] <= '9')
                THEN
                  Exp := TRUE;
              IF Exp
              THEN
                BEGIN
                  Delete(s, a, b - a);
                  i := i - b + a
                END
            END;
            a := b + 1
        END;    
      Inc(i)
    END;
  WRITELN('Result text:');
  WRITELN(s);
  READLN
END.

VAR
  s, Temp: STRING;
  i, j, a, b: BYTE;
  Exp: BOOLEAN;
BEGIN
  WRITELN('Enter text:');
  READLN(s);
  s := s + ' ';
  a := 1;
  i := 2;
  WHILE i <= Length(s)
  DO
    BEGIN
      IF s[i] = ' '
      THEN
        BEGIN
          b := i;
          Temp := Copy(s, a, b - a);
          IF Temp <> ' '
          THEN
            BEGIN
              Exp := FALSE;
              FOR j := 1 TO Length(Temp)
              DO
                IF (Temp[j] >= '0') AND (Temp[j] <= '9')
                THEN
                  Exp := TRUE;
              IF Exp
              THEN
                BEGIN
                  Delete(s, a, b - a);
                  i := i - b + a
                END
            END;
            a := i + 1
        END;    
      Inc(i)
    END;
  WRITELN('Result text:');
  WRITELN(s);
  READLN
END.

var
 i: char;
Const
 S: string = 'ab10 cd 20 e87k 9 5rtrt rom 777';
Begin
 For i:='0' to '9' do
  While pos(i,S)<>0 do
   Begin
    if pos(i,S)<>length(S) then
     While (S[pos(i,S)+1]<>' ')and(pos(i,S)<>length(S)) do
      delete(S,pos(i,S)+1,1);
    if pos(i,S)<>1 then
     While (S[pos(i,S)-1]<>' ')and(pos(i,S)<>1) do
      delete(S,pos(i,S)-1,1);
    if pos(i,S)<>1 then
    delete(S,pos(i,S)-1,2) else
    delete(S,pos(i,S),2);
   End;
End.