Составить программу, которая считает количество букв "а" в заданном слове (Секретные материалы). В паскаль.

Либо если нужно явно указать текст:

program p1;var st1,st:string;i,c:integer;beginst:='Секретные материалы';for i:=1 to length(st) do beginst1:=copy(st,i,1);if st1='а' then c:=c+1;end;write('К-во раз: ',c);end.

Большое спасибо! Очень помогли!)

program p1;var st1,st:string;i,c:integer;beginwriteln('Введите текст');readln(st);for i:=1 to length(st) dobeginst1:=copy(st,i,1);if st1='а' then c:=c+1;end;write('К-во раз: ',c);end.