Найти количество слов, оканчивающихся на удвоенную букву - Pascal ABC

Формулировка задачи:

ввести текст. сосчитать колличество слов оканчивающихся на удвоенную букву.

нельзя использовать строки!!!!!!

Решение задачи: «Найти количество слов, оканчивающихся на удвоенную букву»

Листинг программы

uses crt;
const bk=['A'..'Z','a'..'z','А'..'я','Ё','ё'];
var a,b,c:char;
    k:byte;
begin
writeln('Введите текст, в том числе слова с удвоенными буквами в конце');
writeln('окончание ввода Enter');
k:=0;
a:=readkey;//первый чимвол
write(a);
b:=readkey;//второй символ
write(b);
repeat
c:=readkey; //остальные
if c<>#13 then write(c);//если не Enter, выводим
//если не буква, а перед этим 2 одинаковые буквы, считаем
if not (c in bk)and(a in bk)and(b in bk) and(a=b) then k:=k+1;
a:=b;//меняем значения
b:=c;
if c=#13 then writeln;//конец ввода
until c=#13;
write('Количество слов, оканчивающихся на удвоенную букву=',k);
end.

Объяснение кода листинга программы

Установка начального значения переменной k равным 0.
Ввод текста с использованием функции readkey.
Проверка каждого введенного символа на соответствие определенным условиям.
Если символ не является буквой, и перед этим были введены 2 одинаковые буквы, то увеличиваем значение переменной k на 1.
Меняем значения переменных a, b и c для перехода к следующему символу.
Если символ равен символу #13 (Enter), то выходим из цикла.
Выводим количество слов, оканчивающихся на удвоенную букву, с использованием функции writeln.