A#1

const
  aSize = 8;

var
  x, y, z, v: array [1..aSize] of integer;

procedure createNewVectors;
begin
  for var i := 1 to aSize do
  begin
    z[i] := max(x[i], y[i]);
    v[i] := min(x[i], y[i]);
  end;
end;

begin
  writeln('Введите вектор x');
  for var i := 1 to aSize do
    read(x[i]);
  writeln('Введите вектор y');
  for var i := 1 to aSize do
    read(y[i]);
  createNewVectors;
  writeln('Полученный вектор z:');
  writeln(z);
  writeln('Полученный вектор v:');
  writeln(v);
end.