Разработать процедуру(Pascal)

[Sipar]

Разработать процедуру определения количества букв X в строке Y
C помощью этой процедуры вычислить количество букв 'a' входящих в предложение s1 и s2.
Срочно нужна помощь.Если возможно,напишите пояснения к программе.Спасибо.

[Stilet]

s:='строка';cnt:=0;
for i:=1 to Length(s) do if s[i]='a' then inc(cnt);

Где s:string cnt:integer;
cnt - будет содержать кол-во символов входящих в строку
Замысел ясен?