Написать программу по подсчёту сколько раз в тексте встречается заданный символ — Pascal(Паскаль)

uses crt;
var
str: string;
ch: char;
i:integer;
count:integer;
begin
writeln('Введите строку');
readln(str);
writeln('Введите символ');
readln(ch);
count:=0;
for i:=1 to length(str) do
if str[i]=ch then inc(count);
if count > 0 then
writeln('Символ ',ch,' встречается = ',count )
else Writeln('Не встречается ',ch);
end.