Pascal. Задача на удаление слов.

[Sv9t]

нужно из произвольно введённого предложения удалить все слова совпадающие с последним в строке.
последнее слово я нашёл и записал в отдельную переменную. теперь не получается его удалить из всей строки. условия:
Дана строка символов S, состоящая из латинских букв. Группы символов, разделенные пробелами и не содержащие пробелов внутри себя, будем называть словами. Преобразовать исходную строку в строку без последнего слова и удалёнными словами совпадающими с последним.
текс моей программы:

program stroki;
var
s, p: string;
i, j: integer;

begin
writeln('Vvesdite text');
readln(s);
j := length(s);
for i := j downto 1 do 
if s[i] = ' ' then begin
p := copy(s, i, j - i + 1);
break;
end;

writeln(s);
writeln(p);

end.

Спасибо.

[ViktorR]

Есть функция Pos() и процедура Delete().
Почитай.

Как-то так, ...