Программа на Паскале, используя массив, СРОЧНО, пожалуйста!!!!!

program n1;var          st: string;       i,k:integer;beginwriteln('Введите строку'); readln(st);k:=0;for i:=1 to length(st) do    if (st[i]='а') and ((st[i+1]=' ') or (i=length(st))) then k:=k+1;writeln(k);end.