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

b:=0
for i:=1 to dlina do  {перебор от 1 до последнего символа начальной строки, ту которую вводим}
  begin
    j:=j+1; {счётчик символов до пробела}
    k:=k+1;{счётчик всех символов}
    if ord(s[i])=32 then  {если равно пробелу}
       begin
        g:=k-(j-1); {получаем позицию начала слова}
        if s[g]=s[k-1] then b:=b+1; {счётчик слов с одинаковыми 1 и последними буквами}
        j:=0; {обнуление символов до пробела, для дальнейшей проверки}
       end;
  end.

s:=s+' ';
While Pos(' ',s)>0 do {пока есть пробелы в строке делаем}
Begin
   s1:=Copy(s,1,Pos(' ',s)-1);{копируем из строки все символы до пробела}
   Delete(s,1,Pos(' ',s));{Удаляем всё слово с пробелом}
   if s1[1]=s1[Length(s1)] then b:=b+1;//если равны то увеличиваем счетчик
End;

uses crt;
var f: text;
    k: integer;
    s: string;
begin
assign(f,'D:\in.txt');
reset(f);
.
.
.

 uses crt;
 var f: text;
 k: integer;
 s: string;
 begin
 assign(f,'D:\in.txt');
 reset(f);
 While not Eof(f) do
 Begin
   readln(f,s);
   if Length(s)=7 then inc(k);
 End;
 writeln('строк из 7 символов = ',k);
 Close(f);
 End.