Обработка строк. Наибольшая последовательность букв а — Pascal(Паскаль)

program n12s222; {обработка строк.Наибольшая последовательность букв а.}
var s,max,p:string;
    i,m,k:integer;
begin write('введите текст:');
      readln(s);
      s:=s+'.';
      max:='';
      p:='';
      i:=1;
      m:=0;
      k:=0;
      repeat if s[i]='a'
                then begin p:=p+s[i];
                           k:=k+1;
                     end
                else if k>m then begin max:=p;
                                       m:=k;
                                       k:=0;
                                       p:='';
                                 end;
      i:=i+1
      until s[i]='.';
      writeln('длина наиб посл. букв а=',m)
end.