Напишите программу на Pascal, которая определяет, сколько раз встречается заданный символ в введенной строке. Заранее спасибо

begin var s:=ReadlnString('Введите строку: '); var ch:=ReadlnChar('Введите символ: '); Write('Символ встречается ', s.Matches(ch).Count, ' раз(а)');end.

Кладите в свою копилку