Определить какое из чисел встречается в массиве чаще

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.