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

program string_7;

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] = 'A' then
      k := k + 1;
    if s[i] = 'B' 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] = 'B' then
      begin
        delete(s, i, 1);
        i := i - 1
      end;
  end;
  write(s);
  readln;

end.