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

uses crt;
var i,sum,max:integer;
     s:string;
begin
 clrscr;
 writeln('Vvedite stroku ');
 readln(s);
 for i:=1 to length(s) do
sum:=0;
max:=0;
  if s[i]='a' then sum:=sum+1
   else
    begin
     if sum>max then max:=sum;
     sum:=0;
    end;
 writeln(max);
readln;
 
end.

20+25+25=69 (всего учеников)690÷69=10 ( каждый ученик)24*10= 24025*10=25020*10=200