Задача в Паскале!

[d00ker]

даны 2 предложения, определить в каком из них количество вхождений букв "б"(в процентах) больше?
испрользовать функцию, считающая количество вхождений буквы в предложение!

[Gorychev]

Функцию считающая количество вхождений буквы в предложение написал, а с процентами сам разбирайся...

function char_in_string(const s: string; const c: char): integer;
var i: integer;
begin
  result:=0;
  for  i:=1 to length(s) do
  if s[i] = c then inc(result);
end;