Подсчитать сколько слов в тексте начинается на букву ‘а’

procedure TForm1.Button1Click(Sender: TObject);
var st:string;
    a,n,i,k:integer;
begin
st:=Edit1.Text;
n:=length(st); {Определение длины введенной строки}
  k:=0;
   If st[1]='А' then k:=k+1;
   For i:=2 to N do
   if (Copy(st,i,2)='а') or (Copy(st,i,2)='А') then
   k:=k+1;
Label1.Caption:='Количество букв А ='+inttostr(k);
end;
end.

procedure TForm1.Button1Click(Sender: TObject);
var A:STRING; KS, KB, N, I: INTEGER;
begin
A:=Memo1.Text;
N:=Length(A); {Определение длины введенной строки}
KS:=0; KB:=0;
FOR I:=1 TO N DO
IF (A[I]=' ') or (A[I]=',') or (A[I]='.') THEN
 KS:=KS+1 
 ELSE  
 KB:=KB+1;
IF (A[N]<>' ') AND (A[N]<>'.') AND (A[N]<>',') THEN KS:=KS+1;
Label1.Caption:='Средняя длина слова = '+ floattostr(KB / KS);
end;
end.

procedure TForm1.Button1Click(Sender: TObject);
var st:string;
    a,n,i,k:integer;
begin
st:=Edit1.Text;
n:=length(st); {Определение длины введенной строки}
  k:=0;
   For i:=2 to N do
   if (Copy(st,i,2)='а ') or (Copy(st,i,2)='А ') then
   k:=k+1;
if (st[n]='а')or(st[n]='А') then inc(k);
Label1.Caption:='Количество букв А ='+inttostr(k);
end;
end.