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

uses crt;
var ch:char;
    i,m:integer;
begin
m:=0;
repeat
 ch:=readkey;
 write(ch);
 i:=0;
 while ch='a' do
  begin
  i:=i+1;
  ch:=readkey;
  write(ch);
  end;
 if i>m then m:=i;
until ch=#13;
writeln;
write(m);
end.

var 
   s:string; 
   a,i,m:byte;
begin
   cls;
   writeln('Введи строку: ');
   readln(s);
   a:=0; m:=0;
   for i:=1 to length(s) do 
      if (s[i]='a') or (s[i]='а') then  //английская или русская буква А
         begin 
            inc(a); 
            if a>m then m:=a; 
         end
      else a:=0;
   write('Самая длинная последовательность букв А: ',m);
end.

uses crt;
var s,sl: string;
    i: byte;
begin
write('s=');readln(s);s:=s+' '; sl:='';
for i:=1 to length(s) do
    if not (s[i] in [' ','.',',','-','!','?',':',';']) then sl:=sl+s[i] else
       if length(sl)>0 then
          begin
          if sl[1]=sl[length(sl)] then write(sl,' ');
          sl:='';
          end;
end.