помогите сделать блок-схему

[kolbaskin]

помогите сделать блок-схему к данной программе

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

[BDA]

FCEditor Вам в помощь.