В тексте удалить все слова, заканчивающиеся на букву "e". (программа Паскаль)

Question

В тексте удалить все слова, заканчивающиеся на букву "e".

Answer 1

USES Crt;
VAR
S: STRING [250];  PS,N,I: INTEGER;
BEGIN
  ClrScr;
  Write('Введите текст  ');   ReadLn(S);
   S:= ' '+S+' ';
   FOR I:=1 TO Length(S) DO Begin
     IF S[I]=' ' THEN Begin
                                  PS:=I-1;
                                  IF S[PS]='E' THEN WHILE(S[PS]<>' ')  DO Begin
                                                                     Delete(S,PS,1);   PS:=PS-1;
                                                                  End;
      End;
   End;
   WriteLn(‘ Измененный текст:’);   Write(S);
END.