Подсчитать в строке число букв А и В, если букв А больше, чем В, то удалить в строке все символы В

uses crt;
var s:string;
    i,ka,kb:byte;
begin
writeln('Введите строку, содержащую буквы А,В');
read(s);
ka:=0;
kb:=0;
for i:=1 to length(s) do
if s[i] in ['A','А'] then inc(ka) //1 латинская и 1 русская
else if s[i] in ['B','В'] then inc(kb);
writeln('Букв А=',ka);
writeln('Букв B=',kb);
if ka<=kb then write('Букв А не больше чем букв В')
else if ka>kb then
 begin
  writeln('Букв А больше');
  writeln('Удаление букв В');
  for i:=length(s) downto 1 do
  if s[i] in ['B','В'] then delete(s,i,1);
  write(s);
 end;
end.

for i:=1 to length(s) do
if s[i]='A' then inc(ka) //1 латинская и 1 русская
else if s[i]='B' then inc(kb);
writeln('Букв А=',ka);
writeln('Букв B=',kb);
if ka<=kb then write('Букв А не больше чем букв В')
else if ka>kb then
 begin
  writeln('Букв А больше');
  writeln('Удаление букв В');
  for i:=length(s) downto 1 do
  if s[i]='B' then delete(s,i,1);

Var i,k1,k2:byte;
    s:string;
Begin
    write('Введите строку: ');readln(s);
    k1:=0;k2:=0;
    For i:=1 to Length(s) do
     if s[i]='A' then inc(k1)
      else if s[i]='B' then inc(k2);
    if k1>k2 then 
     For i:=Length(s) downto 1 do
      if s[i]='B' then Delete(s,i,1);
    writeln('Букв "A"=',k1,' Букв "B"=',k2);
    if k1>k2 then writeln('Полученная строка: ',s);
End.