Дан целочисленный массив. Найти наиболее часто встречающийся элемент массива (на Паскале)

[Karen909]

Дан массив из 40 элементов. Каждый элемент может принимать целочисленные значения от 0 до 200. Напишите программу, которая позволит найти наиболее часто встречающийся элемент массива

Помогите с написанием этой программки в Паскале, пожалуйста

[interacia]

var
B:INTEGER;
X,Y:INTEGER;
R:array [1..40] of integer;
j,i:integer;
begin
for i:=1 to 40 do
  begin
  R[i]:=random(201);
  write(R[i],' ');
  end;
X:=1;
y:=1;
B:=1;
for i:=1 to 39 do
  begin
for j:=i+1 to 40 do
  begin
if R[i]=R[j] then inc(y);
     end;
if Y>B then begin B:=Y; X:=i; end;
y:=1;
  end;
writeln;
writeln('Ответ:',R[X],' встречается ',B,' раз.');
end.