Найти количество цифр 9 в строке s.

Спасибо большое.

//Pascal//--------------------------------------------varS: string;i, counts: byte;begincounts := 0;write('Введите S: ');readln(s);for i := 1 to length(s) doif S[i] = '9' then  counts := counts + 1;writeln('Количество "9" = ', counts);readln;end.