Дана строка. нужно сосчитать сколько в ней букв "а".в pascal* )​

var s:String;

i,k:Integer;

begin

Write('Введите строку ');

Readln(s);

for i:=1 to Length(s) do

if s[i]='а' then k:=k+1;

Write('В строке ', k,' букв а')

end.

begin

 ReadlnString.Count(c -> c = 'а').Println

end.

Пример приведен на скрине.