Работа со строками

[Solnze2]

В заданном тексте найти слова, которые заканчиваются на ту же букву, что и первое слово. Строка должна вводиться с клавиатуры. Полученная строка и другие элементы должны выводиться на экран.

[Yurk@]

var
FSim : char; // последняя буква первого слова
s : integer; // признак первого слова
tmpStr, newStr : string;
...
s:=0;
newStr:='';
for i:=1 to Length(Str) do 
  if Str[i]=' ' // найден разделитель слов (т.е. получили слово)
    then if s=0  // ппроверяем первое ли это слово 
             then 
             begin  
               s:=1;
               FSim:=Str[i-1];
             end
             else
             if FSim=Str[i-1] 
             then
             begin
               newStr:=newStr+tmpStr+';'; // добавляем слово в общую строку
               tmpStr:=''; 
             end;
    else tmpStr:=tmpStr+Str[i];

[Solnze2]

Спасибо)))