Небольшая задачака по Паскалю. (Строки)

Условие: Дан текст. Напечатать все слова, отличные от последнего слова, предварительно преобразовав каждое из них по следующему правилу: 1) Оставить в слове только первые вхождения каждой буквы 2) если слово нечетной длины, то удалить его среднюю букву.

Меня хватило только на "Напечатать все слова, отличные от последнего слова", а дальше теряюсь. Помогите.

Program Str;


var
str,str1:string;
i,k,a,b,c,f,g:integer;
flag:boolean;
begin
cls;
Writeln('Введите текст: ');
readln(str);
a:=Length(str);
flag:=true;
For i:=a downto 1 do begin
If (str[i]=' ') and (flag) then begin str1:=copy(str,i+1,a); writeln(str1); flag:=false; end;
end;


k:=Length(str1);
For i:=1 to a do begin
if pos(str1,str)>0 then
begin
c:=pos(str1,str);
delete(str,c,k);
end
else break;
end;



writeln(str);
end.

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.