Задача на строки Опции

[nblazhko]

Подскажите как сделать такую задачу:
Описать функцию, которая возвращает значение true , если в строке буква А встречается чаще, чем буква Б, и false в противном случае.

Зарание спасибо.

[volvo]

Очень просто, увеличивать/уменьшать счетчик в зависимости от буквы...

function f(s: string): boolean;
var i, count: integer;
begin
  count := 0;
  for i := 1 to length(s) do
    if s[i] = 'А' then inc(count)
    else if s[i] = 'Б' then dec(count);
  f := count > 0;
end;

[nblazhko]

А все разобрался,спасибо большое!