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

program string_10;

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);
  readln;

end.