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

Формулировка задачи:

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

Решение задачи: «В тексте удалить все слова,заканчивающиеся на буквы "ие"»

Листинг программы

Var s,s1,s2:string;
Begin
    write('Введите строку текста: ');readln(s);
    s:=s+' ';s2:='';
    While Pos(' ',s)<>0 do
     Begin
      s1:=Copy(s,1,Pos(' ',s)-1);
      Delete(s,1,Pos(' ',s));
      if (s1[Length(s1)-1]<>'и')and(s1[Length(s1)]<>'е') then s2:=s2+s1+' ';
     End;
    writeln('Полученная строка: ',s2);
   readln;
End.

Объяснение кода листинга программы

Объявлены три переменные: s, s1, s2 (строки).
Пользователю предлагается ввести строку текста.
Введенная строка сохраняется в переменной s.
Переменная s1 инициализируется пустой строкой.
Переменная s2 инициализируется пустой строкой.
В цикле while удаляются все пробелы из строки s, сохраняя остальные символы в переменной s1.
Если последний символ в s1 не равен и и последний символ в s1 не равен е, то добавляется s1 в s2.
Выводится полученная строка.