счёт заданной буквы в предложении

[tanya61043]

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

паскаль АВС

[Serge_Bliznykov]

var ch : char;
   i, Cnt : integer;
   s : string;
begin
   WriteLn('Введите строку:');
   Readln(s);
   WriteLn('Введите символ для поиска:');
   Readln(ch);
   Cnt := 0;
   for I:=1 to Length(s) do
      if s[i]=ch then Inc(Cnt);
   WriteLn('Искомый символ встречается в строке ровно ', Cnt, ' раз. ');
   Readln
end.