Ввести строку из символов 2-х типов: А и В. Подсчитать количество символов А и символов В в строке. Если число символов А больше числа символов В, то удалить в строке все символы В, иначе удалить в строке все символы А. Вывести полученную строку- Pascal(Паскаль)

Program Primer3;
 Uses Crt;
 var s:String;
 Function KolSimv(ch:Char;Str:String):Integer;
 var i,k:Integer;
 begin
   k:=0;
   For i:=1 to Length(Str) do
     if Str[i]=ch then inc(k);
   KolSimv:=k;
 end;
 Function StrokaUdal(ch:Char;Str:String):String;
 var i:Integer;
 begin
   While pos(ch,Str)<>0 do
    Delete(Str,pos(ch,Str),1);
   StrokaUdal:=Str;
 end;
 begin
    ClrScr;
    Write('Введите строку:');
    Readln(s);
    If KolSimv('A',s)>KolSimv('B',s) then Writeln(StrokaUdal('B',s)) else
      Writeln(StrokaUdal('A',s));
    Readkey;
 end.