Найти разницу между количеством групп букв и количеством групп знаков - Turbo Pascal - Ответ 6827173

uses crt;
const cf=['0'..'9'];{цифры}
      zn=['+','-','*'];{знаки}
      bk=['a'..'z']; {буквы}
var ds:set of char;
    c:char;
    s:string;
    n,i,kb,kz:byte;
begin
clrscr;
writeln('Введите строку из малых английских букв, цифр  и знаков +  - * ');
writeln('окончание ввода Enter');
s:='';
ds:=cf+zn+bk;{допустимые символы}
repeat
c:=readkey;{читаем код клавиши}
if c in ds then{если допустимый}
 begin
  s:=s+c;{добавляем к строке}
  write(c);{выводим на экран}
 end;
if c=#13 then writeln;{если Enter, на новую строку}
until c=#13;{конец ввода}
s:='0'+s;//добавим в начало символ не буку и не знак
n:=length(s);
{будем считать группы знаков и букв}
kb:=0;
kz:=0;
for i:=2 to n do
if(s[i] in bk)and not((s[i-1] in bk)) then inc(kb){если буква и перед ней не буква}
else if(s[i] in zn)and not((s[i-1] in zn)) then inc(kz);{если знак и перед ней не знак}
writeln('Количество групп букв=',kb,' групп знаков=',kz);
writeln('Их разница=',abs(kb-kz));
readln
end.