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

var  currentPos,wordsAmount:byte; groupWords:string;  procedure isCorrect(startPos:byte);   begin    while currentPos+1<=length(groupWords) do     if groupWords[currentPos+1]<>' ' then inc(currentPos) else break;    if groupWords[startPos]=groupWords[currentPos] then     inc(wordsAmount);   end; begin  readln(groupWords); wordsAmount:=0; currentPos:=1;  while currentPos<=length(groupWords) do   begin    if (groupWords[currentPos]<>' ') then isCorrect(currentPos);    inc(currentPos);   end;  writeln(wordsAmount); readln; end.