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

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.