nhanh giúp mình với ạaaa

Var n,i,max,smax: longint;
    a,b: array [1..10000000] of longint; 
begin
    write('N='); readln(n);
    max:= 0;
    For i:= 1 to n do
        begin
            write('A',i,'='); readln(a[i]);
            b[a[i]]:= 0;
        end;
    write('Cac so xuat hien trong mang la: ');
    For i:= 1 to n do
        begin
            if b[a[i]] = 0 then write(a[i],',');
            b[a[i]]:= b[a[i]] + 1;
            If b[a[i]] > max then 
                begin
                    max:= b[a[i]];
                    smax:= a[i];
                end;
        end;
    writeln;
    writeln('So xuat hien nhieu nhat trong mang la: ',smax);
end.

var a,b: array [1..10000000] of longint;
    i, max1, n, max: longint;
begin
 write('nhap vao n:');
readln(n);
max1:=0;
for i:= 1 to n do
 begin
 write('a',i,'=');
readln(a[i]);
 b[a[i]]:= 0;
end;
 write('Cac so xuat hien trong mang la: ');
for i:= 1 to n do
begin
 if b[a[i]] = 0 then write(a[i],',');
 b[a[i]]:= b[a[i]] + 1;
 if b[a[i]] > max1 then
 begin
 max1:= b[a[i]];
 max:= a[i];
end;
 end;
writeln('So xuat hien nhieu nhat trong mang la: ',max);
readln;
end.