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

Формулировка задачи:

Заданные два числовых массива X(N) и Y(N) преобразуйте их по правилу: для каждой пары большее из xi и yi примите в качестве нового значения xi , а меньшее — в качестве нового значения yi . Что сделала. подскажите что не так

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.

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

Листинг программы

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.

Объяснение кода листинга программы

Создается программа на языке Pascal ABC.
Объявляются две переменные типа array[1..int] of integer: X и Y.
Пользователю предлагается ввести размер массива n.
В цикле for i:=1 до n выполняется:
- Выводится сообщение X[, i, ' ] = ` и считывается значение элемента X[i].
- Выводится сообщение Y[, i, ' ] = ` и считывается значение элемента Y[i].
- Если X[i] меньше Y[i], то значения меняются местами с помощью переменной temp.
Выводятся сообщения Массив Х: и Массив Y: и выводится содержимое массивов X и Y.
Выполняется цикл for i:=1 до n и, если X[i] меньше Y[i], то значения меняются местами с помощью переменной temp.
Выводятся сообщения Новый массив Х: и Новый массив Y: и выводится содержимое массивов X и Y после обмена.