Минимальный и максимальный элемент двух массивов

program ex32;
const n=5;
type vector=array[1..n] of integer;
var x,y:vector;A,B,i:integer;
begin
writeln('Введите ',n,' чисел вектора X');
for i:=1 to n do
read(x[i]);
writeln('Введите ',n,' чисел вектора Y');
for i:=1 to n do
read(y[i]);
for i:=1 to n do
begin
A:=max(x[i],y[i]);
B:=min(x[i],y[i]);
end;
write('max=' ,A,' min= ',B)
end.

program ind3;
 
const
  n = 3;
 
type
  vector = array[1..n] of integer;
 
var
  x, y, a: vector;i: integer;
 
begin{1}
  {Ввод массива X}
  writeln('Введите ', n, ' чисел вектора X');
  for i := 1 to n do
    read(x[i]);
  
    {Ввод массива Y}
  writeln('Введите ', n, ' чисел вектора Y');
  for i := 1 to n do
    read(y[i]);
  {Преобразование векторов X и Y}
  for i := 1 to n do 
  begin{2}
    if x[i] < y[i] then
    begin{3}
      a[i] := x[i];
      x[i] := y[i];
      y[i] := a[i];
    end;{3}
  end;{2}
  {Вывод преобразованных векторов X и Y}
  for i := 1 to n do
    write('X', i, '=', x[i], ' ');
  writeln;
  for i := 1 to n do
    write('Y', i, '=', y[i], ' ');
end.