Пусть дана последовательность...

[Skyes]

Здравствуйте, подскажите пожалуйста.
Вот задача:
"Пусть дана последовательность, содержащая от 2 до 30 слов, в каждом из которых от 2 до 10 строчных латинских букв; между соседними словами — не менее одного пробела, за последним словом — точка. Напечатайте все слова,отличные от первого слова, предварительно преобразовав каждое из них по следующему правилу:
f) удалить из слова все предыдущие вхождения последней буквы;"

program task7;

{$APPTYPE CONSOLE}

uses
      SysUtils,
      Windows;

const n=30;
      m=10;
var   a:array[1..n,1..m]of char;
      i,j:integer;
      nFact: integer;
      c: char;
      equWord: Boolean;
      len1: integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  writeln('Введите предложение, в конце стоит точка');

  i:=1;

  read(c);
  while (c<>'.')do begin 
     j:=1;
     while c=" " do read(c);
     while (c<>' ')and(c<>'.')do begin  
       a[i,j]:=c; j:=j+1;
       read(c)
     end;
     a[i,j]:=' ';
     i:=i+1;
  end;
  
  nFact:=i;
  len1:=1;
  while a[1,len1]<>' ' do len1:=len1+1;

  for i:=2 to nFact do begin
    equWord:=true;
    j:=1;
    while equMord and j<=len1 do begin
      if a[1,j]=a[i,j] then j:=j+1
      else equWord:=false;
    end;
    ?????????????????
    ?????????????????
  end;

end.

Осталось ее немного дописать, но я не знаю как выполнить пункт f)
f) удалить из слова все предыдущие вхождения последней буквы;
Подскажите, если не трудно, как удалить эти самые вхождения последней буквы?