Большее из частейших (TurboPascal)

[VladKB1]

Прочитайте из первой строки число n, n ≤ 15000, со второй строки – n элементов массива a[i],
-maxint ≤ a[i] ≤ maxint.
Выведите в файл то число, которое встречается в массиве наибольшее количество раз. Если
таких чисел несколько, выведите большее из них.

input.txt
7
2 7 4 1 4 5 2
output.txt
4


Задача работает не корректно, а именно когда повторение чисел одинаково и нужно выбрать большее число из них:

var
 n,i,j,b,a,a1,k,max: longint;
begin
 assign(input,'input.txt');
 reset(input);
 assign(output,'output.txt');
 rewrite(output);

 read(n,a);
 k:=1;
 max:=-maxint;
 for i:=2 to n do
 begin
  a1:=a;
  read(a);
  if a1 <> a then k:=1
  else inc(k);
  if k > max then
  begin
   max:=k;
   b:=a1;
  end;
 end;
 writeln(b);
end.

[Stilet]

С потолка:

var
 n,i,j,k,l: longint; a:array[0..15000,1..2] of integer; b:boolean;
begin
 assign(input,'input.txt');
 reset(input);
 assign(output,'output.txt');
 rewrite(output);

 read(n);
 k:=1;
 for i:=1 to n do
 begin
  read(l); b:=false;
  for j:=1 to k do if a[j,1]=l then begin b:=true; inc(a[j,k]); break; end;
  if not b then begin a[k,1]:=l;inc(a[k,2]); end;
 end;
 i:=1;
 for j:=2 to k do if a[j,2]>a[i,2] then i:=j;
 writeln(a[i,1]);

end.

Не проверял.

[VladKB1]

Сообщение от Stilet

С потолка:

var
 n,i,j,k,l: longint; a:array[0..15000,1..2] of integer; b:boolean;
begin
 assign(input,'input.txt');
 reset(input);
 assign(output,'output.txt');
 rewrite(output);

 read(n);
 k:=1;
 for i:=1 to n do
 begin
  read(l); b:=false;
  for j:=1 to k do if a[j,1]=l then begin b:=true; inc(a[j,k]); break; end;
  if not b then begin a[k,1]:=l;inc(a[k,2]); end;
 end;
 i:=1;
 for j:=2 to k do if a[j,2]>a[i,2] then i:=j;
 writeln(a[i,1]);

end.

Не проверял.

извините но двухмерный массив использовать нельзя (( извините что сразу не написал

[Stilet]

Да? Что еще нельзя использовать?

[VladKB1]

Сообщение от Stilet

Да? Что еще нельзя использовать?

тип переменных string, функции ну вроде бы и всё...

[Stilet]

Ну тогда соболезную...

[VladKB1]

Сообщение от Stilet

Ну тогда соболезную...

А не как мой код не можешь подправить, изменить?

[Stilet]

Если без массивов то я пас.

[VladKB1]

Я решил вроде. Добавил if:

if k >= max then
 begin
  max:=k;
  if a > b then b:=a;
 end;
end;

Теперь работает! И без массивов я не говорил я говорил без двухмерного! Но большое спасибо
вам за проявления помощи! Благодарен ))