Определить длину самой длинной подстроки из подряд стоящих букв «а» (ASCII-Z строки)

uses
  Strings;
var
  p: pchar;
  s: string;
  n, i, k, mx: integer;
 
begin
  writeln('Enter a string that contains a series of letters "a": ');
  readln(s);
  p := StrAlloc(length(S) + 1);
  if StrPCopy(P, S) <> P then
    Writeln('This is impossible !!')
  else
    writeln('ASCIIZ string: ', P);
  n := StrLen(p);
  mx := 0;
  k := 0;
  for i := 1 to n do
    if p[i] = 'a' then
      inc(k)
    else
    if(p[i] <> 'a') or (i = n) then
    begin
      if k > mx then
        mx := k;
      k := 0;
    end;
  write('The maximum number of letters a in a row: ', mx);
  StrDispose(P);
  readln;
end.

uses
  Strings;
var
  p: pchar;
  r: pchar;
  L : pchar;
  s: string;
  {n, i,} k, mx: integer;
 
begin
  writeln('Enter a string that contains a series of letters "a": ');
  readln(s);
  p := StrAlloc(length(S) + 1);
  if StrPCopy(P, S) <> P then
    Writeln('This is impossible !!')
  else
    writeln('ASCIIZ string: ', P);
 
  r := p; L := nil; k := 1; mx := 0;
  repeat
    L := strscan(r, 'a');
    if Assigned(L) then
      begin
        if L = R then Inc(k)
        else
          begin
            if mx < k then mx := k;
            k := 1;
          end;
 
        R := L + 1;
      end
    else if mx < k then mx := k;
  until not Assigned(L);
  write('The maximum number of letters a in a row: ', mx);
  StrDispose(P);
  readln;
end.