Составить программу, которая выводит тру, если в строке буква A встречается чаще, чем буква Б, и фалсе в противном случае

Program prog;
uses crt;
var i, countA, countB :integer;
str: string;
flag: boolean;
BEGIN
countA:=0;
countB:=0;
Write('Введите строку символов: ');
Read(str);
For i:=1 to length(str) do
Begin
if str[i]='A' then inc(countA);
if str[i]='B' then inc(countB);
End;
if countA > countB then flag:=true
else flag:=false;
Writeln('A встречается ', countA, ' раз');
Writeln('B встречается ', countB, ' раз');
Writeln('flag = ', flag);
END.

program prog;
var ch:char;
     a,b:integer;
begin
 a:=0;
 b:=0;
 writeln('vvedite tekst');
 read(ch);
 while ch<>#13 do
  begin
   if ch='A' then inc(a);
   if ch='B' then inc(b);
   read(ch);
  end;
 if a>b then writeln('true')
        else writeln('false');
end.

var
  s : String;
  a, b, i : Integer;
begin
  ReadLn(s);
  a := 0;
  b := 0;
  for i := 1 to Length(s) do
    case s[i] of
      'А' : inc(a);
      'Б' : inc(b);
    end;
  WriteLn(a>b);
end.

var chA,chB:integer;
c:char;
begin
repeat
read(c);
if c='A' then inc(chA);
if c='Б' then inc(chB);
until eoln;
if chA>chB then write('True') else write('False');
end.