Помогите пожалуйста) Строковые операции. Подсчитать количество символов во введенной строке и число вхождений в строку заданного символа из введенного набора символов . Интерфейс должен обеспечивать ввод набора символов с помощ...

var   str:string;   ch:char;   i, count:integer; begin   write('Введите строку: ');   readln(str);   write('Введите символ: ');   readln(ch);   for i:=1 to Length(str) do     if str[i] = ch then       count:=count+1;   writeln('Символов в строке: ', Length(str));   writeln('Число вхождений в строку введенного символа:', count); end.