количество слов начинающиеся и заканчивающиеся на одну и ту же букву

[hamaha]

количество слов начинающиеся и заканчивающиеся на одну и ту же букву

const
  razd = [' ', ',', '?', '.'];

var
  s, words: string;

function Count_word(s: string): byte;
var
  i: byte = 1;
  j: byte;
begin
  words := '';
  while i < length(s) do 
    if s[i] in razd then inc(i) else  
    begin
      while (i < length(s)) and not (s[i] in razd) do
      begin
        words := words + s[i];
        inc(i);
      end;
      if words <> '' then 
        if words[1] = words[length(words)] then 
          inc(result); 
      words := '';
    end;
end;

begin
  writeln('Введите текст');
  readln(s);
  writeln(Count_word(s));
end.

Пожалуйста, оформляйте Ваш код согласно правилам.