Nhập vào một mảng,in ra tổng của hai phần tử có giá trị lớn nhất có trong mảng Vd: 3 3 4 5 in ra 8 do 3+5=8

uses crt;
var a:array[1..1000000] of int64;
      n,i,max,mx:longint;
begin
      clrscr;
      readln(n);
      for i:=1 to n do read(a[i]);
      max:=a[1];mx:=a[1];
      for i:=2 to n do
            begin
                  if a[i] > max then max:=a[i];
                  if (mx < max) and (a[i] > mx) and (a[i] < max) then mx:=a[i];
            end;
      writeln(max+mx);
      readln
end.