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

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.