Найти количество слов, у которых первая и последняя буква одинаковые

var
  s: string;
  i, k, p: integer;
 
begin
  writeln('Введите стоку из слов, разделённых пробелами, в конце строки - точка.');
  readln(s);
  s := ' ' + s;
  if s[length(s)] = '.'
    then s[length(s)] := ' '
    else s := s + ' ';
  k := 0;
  for i := 2 to length(s) - 1 do
    if s[i] <> ' '
      then begin
        if s[i - 1] = ' ' then p := i;
        if (s[i + 1] = ' ') and (s[p] = s[i]) then inc(k)
      end;
  write('Количество слов, начинающихся и заканчивающихся одинаковыми буквами = ', k);
  readln
end.

var
  a, b, c, t: char;
  n: integer;
 
begin
  writeln('Введите стоку из слов, разделённых пробелами, в конце строки - точка.');
  c := ' ';
  b := c;
  n := 0;
  repeat
    a := b;
    b := c;
    read(c);
    if b <> ' '
      then begin
        if a = ' ' then t := b;
        if (c in [' ', '.']) and (t = b) then inc(n)
      end
  until c = '.';
  readln;
  write('Количество слов, начинающихся и заканчивающихся одинаковыми буквами = ', n);
  readln
end.