String код.

[Vlad0n]

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

Я вот попробовал написать код

program problem;



var
  stroka, Slovo,x: string;
  i, k : integer;




begin
  Write('STROKA: ');
  Readln(stroka);
  k := 0;
  for i := 1 to length(stroka) do
    if stroka[i] <> ' ' then
      Slovo := Slovo + stroka[i]
    else
x:=stroka[i-1];

        begin
          if slovo[1] = x then
            inc(k);
          Slovo := '';
        end;
  write(k);
  Readln;
end.

не знаю как очистить строку, а то она в следующем цикле становится пробелом
заранее спасибо

[Vlad0n]

Помогите пожалуйста!

[S1av0k]

Как-то так

program problem;
var
  stroka, Slovo,x: string;
  i, k : integer;

begin
  Write('STROKA: ');
  Readln(stroka);
  k := 0;

  for i := 1 to length(stroka) do
    if stroka[i] <> ' ' then
       Begin
             Slovo := Slovo + stroka[i];
             WriteLn(Slovo);
       End
    else
        Begin
             x:=stroka[i-1];
             if slovo[1] = x then
             k:=k + 1;
             Slovo := '';
        end;
    if Slovo[1] = Stroka[length(stroka)] then
       k := k + 1;
  write(k);
  Readln;
end.

[S1av0k]

Только, согласно заданию, необходимо обеспечить ввод строки только буквами, да ещё и заглавными. Не забудь это учесть.

[Vlad0n]

Спасибо большое, мне грубо говоря, только не хватало этого

 (if Slovo[1] = Stroka[length(stroka)] )

условия. Извините за тупость, но что-то я его не до конца понимаю) не могли бы вы пояснить в кратце?
спасибо

[Vlad0n]

Сообщение от S1av0k

Только, согласно заданию, необходимо обеспечить ввод строки только буквами, да ещё и заглавными. Не забудь это учесть.

спасибо, учту)

[S1av0k]

Без этого условия последнее слово у тебя никогда не будет обработано, потому что после него нет пробела. А так ты проверяешь, не подходит ли последнее слово под условие, т.е. не равно ли значение в Slovo[1] последнему символу строки Stroka(Length(Stroka)).

[Serge_Bliznykov]

S1av0k, а зачем сравнивать первый символ слова с последним символом строки?
Нужно же посчитать, сколько слов начинается и заканчивается на одну и ту же букву..

[Vlad0n]

Сообщение от Serge_Bliznykov

S1av0k, а зачем сравнивать первый символ слова с последним символом строки?
Нужно же посчитать, сколько слов начинается и заканчивается на одну и ту же букву..

насколько я понимаю, сравнивается первая буква слова с последней буквой строки в последнем цикле