Вводится последовательность символов, конец ввода -ESC(код#27). Определить количество букв "b". помогите сделать через string.

[kolbaskin]

uses crt;
const zn=[',','.','!','?','-'];
var a,b:char;
    k:integer;
begin
writeln('Введите последовательность символов, в том числе букву b и знаки препинания');
writeln('конец ввода -ESC');
k:=0;
a:=readkey;
write(a);
repeat
b:=readkey;
if b<>#27 then write(b);
if (b='b')and(a in zn) then k:=k+1;
a:=b;
if b=#27 then writeln
until b=#27;
write('Количество букв b после знаков препинания=',k)
end.

[Vanta11a]

Считываете строку целиком, потом посимвольно пролистываете её. Я правда не знаю, как в string засунуть код символа ESC.
Либо добавляете в строку считанные символы до тех пор, пока не будет нажата кнопка ESC, потом анализируете полученную строку.

[Serge_Bliznykov]

я бы такой вариант предложил:

uses crt;
var a,ex:char;
 k:integer;
begin
  writeln('Введите последовательность символов, в том числе букву b и знаки препинания');
  writeln('конец ввода -ESC');
  k:=0;
  repeat
    a:=readkey;
    if a=#0 then ex := readkey; {обработаем нажатие расширенных клавиш}

    if (a='b') then k:=k+1; {если нажали клавишу b, увеличим счётчик}

    if a>=' ' then Write(a); {если клавиша имеет "печатное" значение, выведем её на экран}

  until a=#27;
  WriteLn;
  writeLn('Количество букв b =',k);

  WriteLn; WriteLn('Press any key to exit...');  readkey
end.

правда, немного смущает текст в коде программы:

write('Количество букв b после знаков препинания=',k)

Вроде бы не увидел такого в условиях задачи.
Ну и второе, непонятно, зачем здесь тип String...