Проверить, есть ли в массиве A[n] числа B и C и определить, какое из чисел встречается в массиве чаще

uses
  crt;
 
const
  M = 100;
 
var
  A: array[1..M] of integer;
  i, n, B, C, CountB, CountC: integer;
 
begin
  clrscr;
  repeat
    write('n = ');
    readln(n)
  until (n > 0) and (n <= M);
  write('B = ');
  readln(B);
  repeat
    write('C = ');
    readln(C)
  until C <> B;
  CountB := 0;
  CountC := 0;
  randomize;
  for i := 1 to n do begin
    a[i] := random(M);
    write(' ', a[i]);
    if a[i] = B then inc(CountB);
    if a[i] = C then inc(CountC)
  end;
  writeln;
  if (CountB = 0) and (CountC = 0) then writeln('Числа ', B, ' и ',  C, ' не встречаются')
  else begin
    if (CountB = 0) and (CountC > 0) then begin
      writeln('Число ', B, ' не встречается');
      writeln('Число ', C, ' встречается ', CountC, ' раз');
    end else
    if (CountB > 0) and (CountC = 0) then begin
      writeln('Число ', B, ' встречается ', CountB, ' раз');
      writeln('Число ', C, ' не встречается');
    end else begin
      writeln('Число ', B, ' встречается ', CountB, ' раз');
      writeln('Число ', C, ' встречается ', CountC, ' раз');
      if CountB > CountC then writeln('Число ', B, ' встречается чаще числа ', C)
      else
      if CountB < CountC then writeln('Число ', C, ' встречается чаще числа ', B)
      else writeln('Числа ', B, ' и ', C, ' встречаются одинаковое количество раз')
    end
  end;
  readln
end.