Определение букв.

[Maserati]

Определите каких букв ("а" или "б") в слове Х больше.

Помогите решить.

[Кольша]

примитив:
var
s:string;
i,a,b:integer;
begin
readln(s);
a:=0;
b:=0;
for i:=1 to length(s) do
if(s[i]='а')then inc(a)
else if(s[i]='б') then inc(b);
if a>b then writeln('a') else writeln('b');
//можно(нужно) еще опустить строку в нижний(верхний) регистр

[Maserati]

Большое спасибо.

[Sasha_Smirnov]

Исполняемый vbs-файл (запуск левым щелчком, редактирование — правым):