Viết chương trình nhập 1 dãy n số. Cho biết số LN và số NN (In ra màn hình) Cho biết số LN và số NN ở vị trí nào? (In ra màn hình)

uses crt;
var n,i,max,min,ln,nn:longint;
    a:array[0..1000000]of longint;
begin
        clrscr;
        read(n); max:=-999999999; min:=999999999;
        for i:=1 to n do
                begin
                        read(a[i]);
                        if a[i]>max then begin
                                max:=a[i];
                                ln:=i;
                        end;
                        if a[i]<min then begin
                                min:=a[i];
                                nn:=i;
                        end;
                end;
        writeln(max,' ',ln);
        writeln(min,' ',nn);
        readln;
end.

program oken;

uses crt;
var a: array [1..100] of integer;
    i,n,max,min,vitri,vitri2:integer;
begin
        clrscr;
        write('nhap so phan tu cua mang: '); readln(n);
        for i:=1 to n do
                begin
                        write('a[',i,']: ');
                        readln(a[i]);
                end;
        max:=a[1]; min:=a[1]; vitri:=1; vitri2:=1;
        for i:=2 to n do
                if a[i]>max then
                        begin
                                max:=a[i];
                                vitri:=i;
                        end
                else
                        if a[i]<min then
                                begin
                                        min:=a[i];
                                        vitri2:=i;
                                end
                        else
                                if (a[i]=max) and (a[i]=min) then Max:=Min;
        writeln('Max: ',max,' vi tri: ',vitri);
        writeln('Min: ',min,' vi tri: ',vitri2);
        readln;
end.