Помогите пожалуйста написать задачу в паскале!!!

посимвольно ввести текст. найти количество слов в которых строго чередуются большие и маленькие буквы (БЕЗ ИСПОЛЬЗОВАНИЯ МАССИВА И БЕЗУСЛОВНОГО ПЕРЕХОДА) .
ЭТО ПРОГРАММА НУЖНО ДОПИСАТЬ УСЛОВИЕ.
program Z1;
uses crt;
var k:integer;
pr,c:char;
begin
k:=0;
pr:=' ';
repeat
c:=readkey;
while c=#0 do
begin
readkey;
c:=readkey;
end;
write(c);
if (pr=' ') and (c<>' ')
then k:=k+1;
pr:=c;
until c=#13;
writeln;
writeln(k)
end.