Напечатать все слова, которые встречаются в ней ровно 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.

[volvo]

вроде всё сделал

Почти все...
Основная ошибка - слово Tmp должно сбрасываться НЕ только тогда, когда его первая и последняя буквы равны, а всегда, когда встречается пробел...

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 begin

      if tmp[1] = tmp[length(tmp)] then
        writeln('slovo ',tmp,' na4inaetsia u okan41vaetsya na ',tmp[1]);
      tmp:='';

    end;
  readln;
end.

[kr3v3tkus]

volvo а с первой не помогеш? мне бы хотяб на мыслю наткнуться)

[kr3v3tkus]

подскажите плз где ошибка? нужно найти минимальное слово

Код

program lol;
var text,tmp,txt:string;    
i,l:integer;  
begin
writeln('vvest1 text');  
readln(text);    
txt:=text;  tmp:='';    
for i:=1 to length(text) do  
if text[1]<>' ' then
  begin
    if text[i]<>' ' then tmp:=tmp+text[i]  
  else  
  begin
    if length(txt)>length(tmp) then
     txt:=tmp;    
     tmp:='';  
  end;  
end;
writeln('samoe malenkoe slovo - ',txt,' , ono sostoit i3 ',length(txt),' bukv');
readln;  
end.