Найти моду в массиве размером m, который заполнен случайным образом, где m - натуральное число

  m:=a[1]; k:=0; t:=0;
  for i:=1 to n-1 do
    if a[i]=a[i+1] then Inc(t)
    else begin
      if k<t then begin
        m:=a[i]; k:=t;
      end;
      t:=0;
    end;
  if k<t then m:=a[n];
  WriteLn(m);

  for i:=1 to n do a[i]:=Random(mMax);
  for i:=1 to n do Inc(b[a[i]]);
  m:=0; for i:=1 to mMax-1 do if b[m]<b[i] then m:=i;
  WriteLn(m);

var a:array[1..100] of integer;
    m,i,j,x,k,mx,md:integer;
begin
repeat
write('Введите размер массива от 10 до 100 m=');
readln(m);
until m in [10..100];
randomize;
writeln('Исходный массив');
for i:=1 to m do
 begin
  a[i]:=10+random(20);
  write(a[i]:4);
 end;
writeln;
//сортировка массива
for i:=1 to m-1 do
for j:=i+1 to m do
if a[i]>a[j] then
 begin
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x;
 end;
writeln('Отсортированный массив');
for i:=1 to m do
write(a[i]:4);
writeln;
//ищем самый частый
md:=a[1];
mx:=1;
i:=2;
while(i<m) do
if a[i]=a[i-1] then
 begin
  j:=i;
  k:=1;
  while(j<=m)and(a[j]=a[i]) do
   begin
    inc(k);
    inc(j);
   end;
  if k>mx then
   begin
    mx:=k;
    md:=a[i];
   end;
  i:=i+k;
 end
else inc(i);
writeln('Мода массива=',md)
end.