Как сделать, чтобы слова удалялись без ввода буквы? И у меня, если последнее слово начинается на одну и ту же букву, как это исправить в pascal abc?

Здравствуйте. Нужна помощь с задачей: Создать новый текст, содержащий все слова исходного текста, которые оканчиваются на ту же букву, что и слово максимальной длины.
Как сделать, чтобы слова удалялись без ввода буквы? Это требование преподавателя.
И у меня, если последнее слово начинается на одну и ту же букву, как и остальные, оно удаляется, но остаётся последняя буква этого слова. Как это исправить?
Вот исходный код:
Program p1;
var
i:integer;
st:string;
s:char;
Begin
writeln('Введите строку st:');
readln(st);
write('Введите букву: ');
readln(s);
st:=' '+st;
repeat
i:=pos(' '+s,st);
inc(i);
if i<>1 then
repeat
delete(st,i,1);
until (st[i]=' ')or(i=length(st));
until i=1;
writeln('st=',st);
End.