Удалить из слова все предыдущие вхождения последней буквы - Turbo Pascal

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

program lab6;
Var s,sl,st:string;
i:byte;
Begin
write('Posledovatelnost slov: ');readln(s);
if s[Length(s)]='.' then Delete(s,Length(s),1);
i:=Length(s);
While (s[i]<>' ')and(i<>0) do
Begin
st:=s[i]+st;
Delete(s,i,1);
dec(i);
End;
While Pos(' ',s)>0 do
Begin
sl:=Copy(s,1,Pos(' ',s)-1);
Delete(s,1,Pos(' ',s));
if (st<>sl)and(Length(sl)>1) then writeln(Copy(sl,1,Length(sl)-1));
End;
readln;
End.

Нужно удалить из слова все предыдущие вхождения последней буквы

Решение задачи: «Удалить из слова все предыдущие вхождения последней буквы»

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

var
  s, w: String;
  i, p: Integer;
begin
  ReadLn(s); 
  if s[Length(s)]='.' then s[Length(s)]:=' ' else s:=s+' ';
  for i:=1 to Length(s) do
    if s[i]<>' ' then w:=w+s[i]
    else if w<>'' then begin
      p:=Pos(w[Length(w)],w);
      while p<>Length(w) do begin
        Delete(w,p,1);
        p:=Pos(w[Length(w)],w);
      end;
      Write(w,' ');
      w:='';
    end;
  WriteLn;
  Write('Press Enter...'); ReadLn;
end.

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

В этом коде вводится строка, и если последняя буква в ней - точка, то заменяется на пробел. Затем происходит удаление всех предыдущих вхождений последней буквы в строке. В конце выводится введённая строка и запрашивается ввод.