сколько раз встречается буковка "а" во введенной с клавиатуры строчки. Составить

program raf105;

var

 s:string;

 a,i:integer;

begin

write('Введите строчку: ');

readln(s);

s:= lowercase(s);

for i:=1 to length(s) do

 if s[i] = 'а'

   then a+= 1;

writeln('В ведённой строке буковка "а" встречается ',a,' раз(а)');

end.

Язык PascalABC