Pascal Задачка со словами

[Natsu]

Вот готовенькая всем спасибо и с наступаюшим))

var st:string;
i,k:integer;
Begin
k := 0;
WriteLn('Введите строку: ');
Readln(st);
st:=' '+st;
begin for i:=2 to length(st) do
if ((st[i]='а') or (st[i]='А')) and (st[i-1]=' ') then k:=k+1;
writeln('кол-во слов на букву а= ' ,k);
end;
end.