Разработать функцию программиста, вычисляющую, сколько раз встречается заданная буква в строке

Const
 Str:string = 'Мама мыла раму';
 
Function CountChar(C: Char; S: string): byte;
var
 i: byte;
begin
 CountChar:=0;
 For i:=1 to length(S) do
   if S[i]=C then inc(CountChar);
end;
 
Begin
 Writeln('В строке "',Str,'" символ "м" встречается ',CountChar('м',Str),' раз(а).');
End.

var str:string;
    c:char;
 
Function CountChar(C: Char; S: string): byte;
var
 i: byte;
 buf:integer;
begin
 buf:=0;
 For i:=1 to length(S) do
   if S[i]=C then inc(buf);
 countChar:=buf;
end;
 
Begin
 str:='';
 while str<>' ' do begin
  write('Введите строку (для выхода из программы введите пробел): ');
  readln(str);
  if str<>' ' then begin
   write('Введите букву для подсчёта вхождений в строку: ');
   readln(c);
   Writeln('В строке "',Str,'" символ "м" встречается ',CountChar(c,Str),' раз(а).');
  end;
 end;
End.