Nhập vào một mảng,tìm số lớn nhất và lớn nhì có trong mảng ( không dùng cách sắp xếp nhé)

uses crt;
var i,n,max,max1:longint; a:array[1..10000000]of longint;
begin
clrscr;
   write(‘Nhap so luong phan tu: ‘);readln(n);
   for i:=1 to n do 
      begin
         write(‘Nhap phan tu thu ‘,i,’: ‘);read(a[i]);
      end;
   for i:=1 to n do 
      if a[i]>max then max:=a[i];
   for i:=1 to n do 
      if (a[i]<>max)and(a[i]>max1) then max1:=a[i]; 
   writeln(‘So lon nhat: ‘,max);
   writeln(‘So lon nhi: ‘,max1);
readln
end.