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

Question

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

Answer 1

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.