Найти самый часто встречающийся элемент в массиве

program testprg;
 
var i, iMaxVal: integer;
var a: array[1..20] of integer;
var b: array[0..10] of integer;
 
begin
 
// Инициализация массивов и расчёт среднего
   Writeln('Сформированный массив:');
   for i:=1 to 20 do
   begin
        a[i] := Random(11);
        Writeln(i, ') ', a[i]);
   end;
   for i:=0 to 10 do b[i] := 0;
// Подсчёт элементов
   for i:=1 to 20 do b[a[i]] := b[a[i]] + 1;
 
// Определение наиболее часто встречающихся элементов
   for i:=0 to 10 do if b[i] > iMaxVal then iMaxVal := b[i];
 
// Вывод результатов
   Writeln('Количество повторений: ', iMaxVal);
   for i:=0 to 10 do if b[i] = iMaxVal then Writeln('Повторяющееся значение: ', i);
 
end.

const n=20; m=10;
var
  a: array[1..n] of Integer;
  b: array[0..m-1] of Integer;
  i, mx: Integer;
begin
  Randomize;
  WriteLn('Массив:'); {mx:=0;}
  for i:=1 to n do begin
    a[i]:=Random(m); Write(' ', a[i]);
    Inc(b[a[i]]); if b[mx]<b[a[i]] then mx:=a[i];
  end; WriteLn;
  Write('Наиболее частые (',b[mx],') значения:');
  for i:=0 to m-1 do if b[mx]=b[i] then Write(' ',i);
end.

const n=20; m=10;
var
  a: array[1..n] of Integer;
  b: array[0..m-1] of Integer;
  i, mx: Integer;
begin
  Randomize;
  WriteLn('Массив:'); {mx:=0;}
  for i:=1 to n do begin
    a[i]:=Random(m); Write(' ', a[i]); Inc(b[a[i]]);
  end; WriteLn;
  for i:=1 to m-1 do if b[mx]<b[a[i]] then mx:=a[i];
  Write('Наиболее частые (',b[mx],') значения:');
  for i:=0 to m-1 do if b[mx]=b[i] then Write(' ',i);
end.