Решение задачи № 1 из главы 16.Пользователь вводит символ ch и строку s посчитайте сколько раз символ ch встречается в строке

Задача № 1

Пользователь вводит символ ch и строку s
посчитайте сколько раз символ ch встречается в строке s

program pascal_char_in_string1;
var i,amount :integer;
    s : string;
    ch : char;
begin
writeln('input char and string  : ' );
readln( ch, s );
amount := 0;
for i := 1 to length( s ) do
begin
  if( s[i] = ch ) then
     amount+=1;
end;  
writeln( 'amount char ',ch, ' in string : ' , amount )