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

var s:string; i, m:integer;begin readln(s); m:=0; for i:=1 to length(s) do if(s[i]='a') then m:=m+1; writeln(m);end.

Сделано (20 символов тоже тут)