Найти кол-во групп букв в строке.

[niktim]

Условие: Дан текст, каждый символ которого может быть латинской буквой,цифрой или знаком: *,+,-. Группой букв называть, совокупность последовательно расположенных букв, которой непосредственно не предшествует и за которой непосредственно не следует буква. Найти кол-во таких групп букв, которые начинаются и заканчиваются одной и той же буквой.
Код:

var s,s1:string;
    k:byte;
begin
readln(s);
writeln('Слова, начинающиеся и оканчивающиеся на одну букву');
k:=0;
while pos(s)<> length(s-1) do
 begin
  s1:=copy(s,1,pos(' ',s)-1);
  if s1[1]=s1[length(s1)] then
   begin
    k:=k+1;
    write(s1,' ');
   end;
  delete(s,1,pos(' ',s));
 end;
writeln;
if k=0 then write('Таких слов нет')
else write('Количество=',k);
end.

Я так понимаю, что я не реализовал что от меня требуется, помогите пожалуйста исправить до верного варианта, удовлетворяющего условию.

[niktim]

Актуально, со строками ужасно у меня..

[Serge_Bliznykov]

так пойдёт?

var s,w : string;
  i : integer;
  Count : integer;
begin
  s := '191-USUS-MAGISTER-EST*AURA-ACADEMICA*OPTIMUS-SIC+TRANSIT+GLORIA+MUNDI';

  s := s + '+';
  w := '';
  Count := 0;
  for i:=1 to length(s) do begin
    if s[i] in ['A'..'Z','a'..'z'] then w := w+s[i]
    else {не буква, значит это конец группы}
     begin
       if Length(w)>1 then 
         if w[1]=w[Length(w)] then Inc(Count);
       w := '';
     end;
  end;
  Writeln;

  WriteLn('Количество подходящих групп:',Count);
  readln;
end.

[niktim]

разве не более рационально было бы без строки w, а символьной переменной воспользоваться?
Только как это записать?

s:=s + '+';
n:=length(s);
for i:=1 to n-1
if c in [a..z] then count:=count+1;

или не так?
извините, за поднятие темы

[Serge_Bliznykov]

niktim

разве не более рационально было бы без строки w, а символьной переменной воспользоваться?

решить задачу, разумеется, можно различными способами.
Можно даже и без строки w обойтись... только тогда надо чуток алгоритм изменить...

Только как это записать?

Вы хотели написать так:

if c in ['a'..'z'] then count:=count+1;

только непонятно, какое отношение этот Ваш код имеет к решению исходной задачи.
Здесь Вы банально подсчитаете, сколько в строке маленьких (строчных) латинских букв.
и всё!
Ни о каких группах в вашем решении говорить не приходится.
Тем более о

Найти кол-во таких групп букв, которые начинаются и заканчиваются одной и той же буквой.

[niktim]

Просто забыл добавить, что я сначала делал lowcase(s), т.е. у меня буквы были малого регистра все.
А через сhar хотел сделать, чтобы через него проверялось является ли эл-т строки символом, тогда идти дальше, а если литерой, то идти до первого попавшегося символа и если 1 литера = последней, то прибавить группу к счетчику. Только вот записать это не могу
или это бред, невозможный и ужасно нерациональный?