viết chương trình pascal cho dãy số N phần tử .Hãy cho biết số có số lần xuất hiện nhiều nhất,nếu trùng xuất hiện số có giá trị lớn nhất

uses crt ;
var a,mp:array[0..1000000] of longint ;
        n,i,m,res:longint;

function max(a,b:longint):longint;
begin
        if (a > b) then exit (a) ;
        exit (b) ;
end;

begin
clrscr ;
        write('N = ');readln(n);
        m:=0;res:=-999999999;
        for i:=1 to n do
        begin
                read(a[i]);
                inc(mp[a[i]]) ;
                m:=max(m,mp[a[i]]);
        end;
        for i:=1 to n do
                if (mp[a[i]] = m) then res:=max(res,a[i]);
        readln ;
        writeln(res);
        readln
end.