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

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

program borsc;
var s:string;
    k,l,i:integer;
begin write('введите строку:');
      readln(s);k:=0;l:=0;
      for i:=1 to length(s) do
        begin if s[i]='А' then k:=k+1;
              if s[i]='В' then l:=l+1
        end;
      writeln('A=',k);
      writeln('B=',l);
      if k>l then
         begin for i:=1 to length(s) do
                  if s[i]='В' then begin delete(s,i,1);
                                         i:=i-1
                                    end;
         end;
      write(s)
end.