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

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.