uses
 crt;
var
 s:string;
 i,j,k,max:integer;

begin
 clrscr;
 writeln('Vvedite stroky');
 readln(s);
 insert(' ',s,1);
 while pos(' a',s)<>0 do begin
 k:=k+1;
 i:=pos(' a',s);
 j:=1;
   while (s[i+j]<>' ') and ((i+j)<=length(s)) do j:=j+1;
   if (i+j)<>length(s) then j:=j-1;
   if j>max then max:=j;
   delete(s,i,2);
 end;
 if k=0 then writeln('Net slov na bukvy a')
 else begin
   writeln('Kolichestvo ',k);
   writeln('Maximalnaya dlina slova ',max);
 end;
 readln;
end.