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

Question

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

---

Answer 1

Program n1;
var   
      st: string; 
      i,k:integer;
begin
writeln('Введите строку'); 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.