Program Project5;

{$APPTYPE CONSOLE}

uses
   sysUtils;
const
   MaxNumb = 1073741823;
   MinNumb = 0;
var
   a, b, aNew, bNew: array of integer ;
   n, i, maxsum, maxind: integer;
   IsCorrect: boolean;
begin
   n := 0;
   writeln ('This program displays the numbers of the array elements whose total is the maximum');
   repeat
      try
         writeln('Enter a length of array [1..20] ');
         readln(n);
         if ((n > 1) and (n < 20)) then
            IsCorrect := True
         else
             writeln('Enter a value between [1..20]');
      except
         IsCorrect := False;
         writeln ('Enter a number!');
      end;
   until IsCorrect;
   setLength(a, n);
   setLength(b, n);
   setLength(aNew, n);
   writeln('Enter the array elements "a": ');
   for i := 0 to n - 1 do
   begin
      repeat
         try
            write('a[',i,']= ');
            readln(a[i]);
            if ((a[i] > MinNumb) or (a[i] < (MaxNumb))) then
               IsCorrect := True
            else
               writeln('Enter a sequence item. He is must be more ', MinNumb,' but less than ',MaxNumb);
         except
            IsCorrect := False;
            writeln ('Enter a number!');
          end;
      until IsCorrect;
   end;
   writeln('Enter the array elements "b": ');
   for i := 0 to n - 1 do
   begin
      repeat
         try
            write('b[',i,']= ');
            readln(b[i]);
            if ((b[i] > MinNumb) or (b[i] < (MaxNumb))) then
               IsCorrect := True
            else
               writeln('Enter a sequence item. He is must be more ', MinNumb,' but less than ',MaxNumb);
         except
            IsCorrect := False;
            writeln ('Enter a number!');
          end;
      until IsCorrect;
   end;
   maxsum := a[0] + b[0];
   maxind := 0;
   for i := 0 to n - 1 do
   begin
      if a[i] + b[i] > maxsum then
      begin
         maxsum := a[i] + b[i];
         maxind := i;
      end;
   end;
   writeln ('At this value ', maxind,' the pair is the largest');
   readln;
end.