Заданные два числовых массива X(N) и Y(N) преобразуйте по заданному правилу

Program gulim;
var X,Y: array[1..150] of integer;
    Xn,Yn,k, i:integer;
begin
write ('введите число Xn: ');
readln(Xn);
write('введите число Yn: ');
readln(Yn);
 for i:=1 to 150 do
 begin
  write(' X[ ', i, ' ] = ');
  readln(X[i]);
   write('Y [ ', i, ' ] = ');
  readln(Y[i]);
  end;
  for i:=1 to 150 do
  if (X[i]>Y[i]) or (X[i]<Y[i]) then 
writeln (X[i]:=X[i] or X[i]:=Y[i]);
  if (X[i]<Y[i] or X[i]>Y[i]) then
 writeln(Yn[i]:=Xn[i] or Yn[i]:=Yn[i]);
end.

Program gulim;
const int = 10;
var X, Y          : array[1..int] of integer;
    n, temp, i  : integer;
 
begin
     write ('Введите размер массива n < ', int, ': ');
     readln(n);
 
     for i:=1 to n do
     begin
          write('X[ ', i, ' ] = ');
          readln(X[i]);
          write('Y[ ', i, ' ] = ');
          readln(Y[i]);
     end;
     
     WriteLn('Массив Х:');
     for i:=1 to n do
          Write(X[i]:4);
     WriteLn;
     WriteLn('Массив Y:');
     for i:=1 to n do
          Write(Y[i]:4);
 
     for i:=1 to n do
         if (X[i]<Y[i]) then
         begin
              temp:= X[i];
              X[i]:= Y[i];
              Y[i]:= temp;
         end;
     WriteLn;
     WriteLn;
     WriteLn('Новый массив Х:');
     for i:=1 to n do
          Write(X[i]:4);
     WriteLn;
     WriteLn('Новый массив Y:');
     for i:=1 to n do
          Write(Y[i]:4);
end.