Вывести количество слов, начинающихся и заканчивающихся на один и тот же символ

var
   k, i, p: integer;
   st, s, one, last: string;
begin
     s:=' ';
     write('Ââåäèòå ñòðîêó:');
     read(st);
     for i:=1 to length(st) do
     begin
 
          p:=pos(s, st);
          one:=st[i];
          last:=st[p-1];
          if one=last then
          begin
               inc(k);
               delete(st, 1, p);
          end
               else
               delete(st, 1, p);
          end;
     write(k);
end.

var k, p: integer;
    st: string;
 
begin
  writeln('Введите строку:');
  readln(st);
  while pos('  ', st) > 0 then delete(st, pos(' ', st), 1); //убираем лишние пробелы
  if st[length(st)] <> ' ' then st := st + ' '; //добавляем пробел в конец, если его там нет, для удобства
  k := 0; //пока не нашли слов
  while length(st) > 0 do //парсим строку, пока не порушим её окончательно
    begin
      p := pos(s, st); //ищем пробел, запоминаем его позицию (определяемся с границей первого текущего слова)
      if st[1] = st[p-1] then inc(k); //определяемся с текущим первым словом, если подходит, увеличиваем счётчик
      delete(st, 1, p) //удаляем текущее первое слово из строки
    end;
  writeln('Слов, начинающихся и заканчивающихся на одну и ту же букву: ', k); //печатаем
  readln //ждём реакции пользователя для закрытия программы
end.

var k, p: integer;
    st: string;
 
begin
  writeln('Введите строку:');
  readln(st);
  while pos('  ', st) > 0 do delete(st, pos('  ', st), 1); //убираем лишние пробелы
  if st[length(st)] <> ' ' then st := st + ' '; //добавляем пробел в конец, если его там нет, для удобства
  k := 0; //пока не нашли слов
  while length(st) > 0 do //парсим строку, пока не порушим её окончательно
    begin
      p := pos(' ', st); //ищем пробел, запоминаем его позицию (определяемся с границей первого текущего слова)
      if st[1] = st[p - 1] then k := k + 1; //определяемся с текущим первым словом, если подходит, увеличиваем счётчик
      delete(st, 1, p) //удаляем текущее первое слово из строки
    end;
  writeln('Слов, начинающихся и заканчивающихся на одну и ту же букву: ', k); //печатаем
  readln //ждём реакции пользователя для закрытия программы
end.