Найти номер первого символа слова, содержащего максимальное количество букв «а» - Pascal

type arr=array[0..127] of string;
var
  s:string;
  i,j:integer;
  a:arr;
procedure split(delimeter:string;s:string;var sr:arr;var count:integer);
var
  i:integer;
  t:string;
procedure additem;
begin
 if (t<>'') then begin
   inc(count);
   sr[count-1]:=t;
 end;
   t:='';
end;
begin
  count:=0;t:='';
  for i:=1 to length(s) do
    if pos(s[i],delimeter)=0 then t:=t+s[i] else additem;
    additem;
end;
function CntLet(c:char;s:string):integer;
var
  k,l:integer;
begin
  l:=0;
  for k:=1 to length(s) do if s[k]=c then l:=l+1;
  CntLet:=l;
end;
begin
    write('введите текст:');readln(s);
    split(' ',s,a,i);
    if i=0 then writeln('Нет слов') else begin
      j:=0;
      for i:=1 to i-1 do if CntLet('a',a[i])>CntLet('a',a[j]) then j:=i;
      if CntLet('a',a[j])=0 then writeln('Нет слов, содержащих букву "a"')
      else writeln('номер первого символа слова, содержащего максимальное количество букв "a":',pos(a[j],s));
    end;
end.