Напечатать все слова, которые встречаются в ней ровно 1 раз, есть ли оптимальное маленькое решение? Опции

[kr3v3tkus]

Напечатать все слова, которые встречаются в ней ровно 1 раз
не могу решить, тем более рационально(((

я смог решить вот ето:
5. Дана строка, состоящая из слов, разделенных пробелами. Напечатать все слова, отличные от данного.

может можно переделать эту задачку под требуемую?

решение

Код

program lol;
var text,tmp,txt:string;
      i,l:integer;
begin
writeln('vvest1 text');
readln(text);
writeln('vvest1 text dlia ydalen1ya');
readln(txt);
tmp:='';
l:=length(txt);
for i:=1 to length(text) do
if text[i]<>' ' then
  begin
    tmp:=tmp+text[i];
    if txt=tmp then delete(text,i-l,l+1);
  end
else tmp:='';
writeln(text);
readln;
end.

[kr3v3tkus]

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

Код

program lol;
var text,tmp:string;
i:integer;
begin  
writeln('vvest1 text');  
readln(text);
tmp:='';
for i:=1 to length(text) do  
if text[i]<>' ' then tmp:=tmp+text[i]  
else  
if tmp[i-1]=tmp[i-length(tmp)] then
    begin      
      writeln('slovo ',tmp,' na4inaetsia u okan41vaetsya na ',tmp[1]);      
      tmp:='';
    end;  
readln;  
end.