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
         IsCorrect := True;
         writeln('Enter a length of array [1..20] ');
         readln(n);
         if ((n < 1) or (n > 20)) then
         begin
            IsCorrect := False;
            writeln('Enter a value between [1..20]');
         end;
      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
            IsCorrect := True;
            write('a[',i,']= ');
            readln(a[i]);
            if ((a[i] < MinNumb) or (a[i] > (MaxNumb))) then
            begin
               IsCorrect := False;
               writeln('Enter a sequence item. He is must be more ', MinNumb,' but less than ',MaxNumb);
            end;
         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
            IsCorrect := True;
            write('b[',i,']= ');
            readln(b[i]);
            if ((b[i] < MinNumb) or (b[i] > (MaxNumb))) then
         begin
            IsCorrect := False;
            writeln('Enter a sequence item. He is must be more ', MinNumb,' but less than ',(Maxnumb));
         end;
         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
      maxsum := a[i] + b[i];
      maxind := i;
   end;
   writeln (maxind);
   readln ;
end.