вывести в каждой строке максимальное слова на "а"

[ANIRAM]

помогите найти ошибку, пожалуйста! все процедуры работают кроме максимального слова на "а"
program Project251;

{$APPTYPE CONSOLE}

uses
SysUtils;

type mass=array[1..20] of string;

var a:mass; n,i,nmax,j:integer; m,st,stmax,slovo:string; ch:char;

procedure vvod(var a:mass; var n:integer);
var i:integer;
begin
writeln ('vvedite kol-vo strok') ;
readln(n);
writeln('vvedite ',n,' strok');
for I:=1 to n do
readln(a[i]);
end;
procedure vivod (a:mass; n:integer);
begin for i:=1 to n do
writeln(a[i]);
end;

procedure udal_prob(var st:string);
var P:INTEGER;
begin
p:=pos (' ',st) ;
while p>0 do begin
delete (st,p,1);
p:=pos(' ',st);
end;
if st[1]=' ' then delete (st,1,1);
if st[length(st)]=' ' then delete (st,length(st),1);
end;

procedure max_word(VAR a:maSs;VAR n:integer);
var i,j,nmax:integer; slovo,st:string;
begin

for i:=1 to n do
begin
nmax:=0;
slovo:='';
st:='';
a[i]:=a[i]+' ';
for j:=1 to length(a[i]) do
begin
if a[i][j]<>' ' then
slovo:=slovo+ST[I]
else begin
if (length(slovo)>nmax)and(slovo[1]='а') then begin
st:=slovo;
nmax:=length(slovo);
end;
slovo:='';
end;
end;
if st<>'' then
writeln('SAMOE DLINNIE NA "A" V', i, ' STRIKE ', st)
else
writeln('SLOVA NA "A" NET ' , i , ' STROKE');
end;
end;



procedure cifra (var st:string );
var n:integer;
begin

for j:= length(st) downto 1 do
if st[j] in ['0'..'9'] then delete(st,j,1);
end;



begin
{ TODO -oUser -cConsole Main : Insert code here }
vvod(a,n);
WRITELN('STROKI') ;
vivod(a,n);
max_word(a,n);

for i:=1 to n do begin
udal_prob(a[i]) ;
end;
writeln;
writeln ('stroki posle udalenia lishnih probelov') ;
vivod (a,n);
WRITELN;
WRITELN('udalenie CIFR') ;
for i:=1 to n do
cifra (a[i]);
vivod (a,n);

readln;
end.