.Дана строка. Подсчитать самую длинную последовательность подряд идущих букв a.Программа в паскаль

в программе считается кол-во русских "а", если хочешь считать английские вставь строчку if s[i]='a' then

всё равно 0 выводит

vars:string;i,b,m:integer;beginreadln(s);b:=0;m:=0;s:=s+' ';for i:=1 to length(s) doif s[i]='а' then inc(b)elsebeginif m<b thenm:=b;b:=0;end;writeln(m);end.

Когда копировал пропустил строчку

http://znanija.com/task/15269416

vars:string;i,b,m:integer;beginreadln(s);b:=0;m:=0;for i:=1 to length(s) doif s[i]='а' then inc(b)elsebeginif m<b thenm:=b;b:=0;end;writeln(m);end.