Вещественные векторы преобразовать по заданному правилу

var X, Y: array[1..20] of real;
    N, I: integer;
    P, K: real;
begin
    write('N=');
    readln(N);
    for i:=1 to n do
    read(x[i]);
      for i:=1 to n do
      read(y[i]);
      P:=1.0;
        for I:=1 to N do
          if X[I]<Y[I] then
           begin
           P:=P*Y[I];
           K:=X[I];
           X[I]:=Y[I];
          Y[I]:=K;
          end;
            writeln('Izmenen massiv X');
            for I:=1 to N do
              write(X[I], ' ');
              writeln;
              writeln('Izmenen massiv Y');
              for I:=1 to  N do
  write(Y[I], ' ');
  writeln;
  writeln('Proizvedenie novykh komponent X: ', P:8:3);
                readln;
end.

type
  vector = array[1..100] of real;
 
var
  X, Y: vector;
  N: integer;
  K: real;
 
procedure ReadArray(var a: vector; n: integer);
var
  I: integer;
begin
  for i := 1 to n do
    read(a[i]);
end;
 
procedure PrintArray(a: vector; n: integer);
var
  I: integer;
begin
  for i := 1 to n do
    write(a[i], ' ');
  writeln;
end;
 
procedure DoArray(a, b: vector; n: integer; var p: real);
var
  I: integer;
  K: real;
begin
  P := 1.0;
  for I := 1 to N do
    if a[I] < b[I] then
    begin
      P := P * b[I];
      K := a[I];
      a[I] := b[I];
      b[I] := K;
    end;
end;
 
begin
  write('N=');
  readln(N);
  readarray(x, n);
  readarray(y, n);
  writeln('Ishodny massiv X');
  printarray(x, n);
  writeln('Ishodny massiv Y');
  printarray(y, n);
  doarray(x, y, n, k);
  writeln('Proizvedenie novykh komponent X: ', k:8:3);
  readln;
end.

procedure RandomArray(var a: vector; n: integer);
var
  I: integer;
begin
  for i := 1 to n do
    a[i]:=-n div 2+random*n;
end;