Даны 2 массива с 10-ю элементами. Найти натбольшее значение из двух массивов

program z1;
const MaxN=10; {максимальное количество элементов в массиве}
var x: array[1..MaxN] of real;
    i,n,max: integer;
begin
     write('Введите N: ');
     readln(n);
     {вводим значения элементов массива}
     for i:=1 to n do begin
        write('Введите ',i,'-элемент массива: ');
    readln(x[i]);
     end;
     max:=1; {пусть сначала наибольший элемент массива будет 1}
     {поиск наибольшего значения в массиве}
     for i:=1 to n do
         {сравниваем элемент с максимальным}
         if x[i]>x[max] then max:=i; {Если он больше, то он становится максимальным}
 
     writeln('Максимальный элемент #',max,'; Значение элемента: ',x[max]:0:2);
end.

uses crt;
const n=10; {количество элементов в массивах по условию}
var x,y: array[1..n] of real;
    i: integer;
    max:real;
begin
{вводим значения элементов массивов}
for i:=1 to n do
 begin
  write('Введите ',i,'-элемент массива X: ');
  readln(x[i]);
  if i=1 then max:=x[i]
  else if x[i]>max then max:=x[i];
 end;
for i:=1 to n do
 begin
  write('Введите ',i,'-элемент массива Y: ');
  readln(y[i]);
  if y[i]>max then max:=y[i];
 end;
clrscr;
writeln('Массив Х');
for i:=1 to n do
write(x[i]:0:2,' ');
writeln;
writeln('Массив Y');
for i:=1 to n do
write(y[i]:0:2,' ');
writeln;
writeln('Максимальный элемент=',max:0:2);
end.

program z1;
const MaxN=10; {максимальное количество элементов в массиве}
var x: array[1..MaxN] of real;
    i,n,max: integer;
max2:real;
begin
     write('Введите N: ');
     readln(n);
     {вводим значения элементов массива}
     for i:=1 to n do begin
        write('Введите ',i,'-элемент массива: ');
    readln(x[i]);
     end;
     max:=1; {пусть сначала наибольший элемент массива будет 1}
     {поиск наибольшего значения в массиве}
     for i:=1 to n do
         {сравниваем элемент с максимальным}
         if x[i]>x[max] then max:=i; {Если он больше, то он становится максимальным}
 {Новый фрагмент - 2 массив}
max2:=x[max]; {Начальное значение!}
write('Введите N: ');
     readln(n);
     {вводим значения элементов массива}
     for i:=1 to n do begin
        write('Введите ',i,'-элемент массива: ');
    readln(x[i]);
     end;
     
     {поиск наибольшего значения в массиве}
     for i:=1 to n do
         {сравниваем элемент с максимальным}
         if x[i]>max2 then max2:=x[i]; {Если он больше, то он становится максимальным}
 
     writeln('Значение элемента: ',max2:0:2);
end.