Записать алгоритм, меняющий последовательно местами значения элементов X(k) и Y(k) , не используя промежуточных переменных

for i:=1 to n do
 begin
   y[i]:=x[i]+y[i];
   x[i]:=y[i]-x[i];
   y[i]:=y[i]-x[i];
 end;

x[i] := x[i] xor y[i];
y[i] := x[i] xor y[i];
x[i] := x[i] xor y[i];

Var 
X: array [1..100] of integer;
k : byte ; {переменная k вводится как индекс массива}
Begin
randomize;
For k :=1 to 100 do
X[k]:= random (1000); { k -му элементу массива присваивается "случайное" целое число в диапазоне от 0 до 1000}
Write (X[k], ' '); {вывод массива осуществляется в строку, после каждого элемента печатается пробел}
end.
readln;
Y: array [1..100] of integer;
k: byte; {переменная k вводится как индекс массива}
Begin
randomize;
For k :=1 to 100 do
Y[k]:= random (1000); { k -му элементу массива присваивается "случайное" целое число в диапазоне от 0 до 1000}
Write (Y[k], ' '); {вывод массива осуществляется в строку, после каждого элемента печатается пробел}
end;
readln;
begin
for k:=1 to 100 do
 begin
   y[k]:=x[k]+y[k];
   x[k]:=y[k]-x[k];
   y[k]:=y[k]-x[k];
 end;
Write ( x [ k ],' '); {вывод массива осуществляется в строку, после каждого элемента печатается пробел}
readln;
Write ( y [ k ],' '); {вывод массива осуществляется в строку, после каждого элемента печатается пробел}
readln;
end;
 
end.

program masXiY;
 
 Var
 X,Y: array [1..100] of integer;
 k : byte ; {переменная k вводится как индекс массива}
 Begin
   randomize;
   writeln('Массив X: ');
   For k :=1 to 100 do
     begin
       X[k]:= random (1000); { k -му элементу массива присваивается "случайное" целое число в диапазоне от 0 до 1000}
       Write (X[k], ' '); {вывод массива осуществляется в строку, после каждого элемента печатается пробел}
     end;
   writeln;
   writeln;
   writeln('Массив Y: ');
   For k :=1 to 100 do
     begin
       Y[k]:= random (1000); { k -му элементу массива присваивается "случайное" целое число в диапазоне от 0 до 1000}
       Write (Y[k], ' '); {вывод массива осуществляется в строку, после каждого элемента печатается пробел}
     end;
   for k:=1 to 100 do
     begin
       y[k]:=x[k]+y[k];
       x[k]:=y[k]-x[k];
       y[k]:=y[k]-x[k];
     end;
   writeln;
   writeln('---------------------Новые массивы-----------------');
   writeln('Массив X: ');
   for k:=1 to 100 do
     Write (x[k],' '); {вывод массива осуществляется в строку, после каждого элемента печатается пробел}
   writeln;
   writeln;
   writeln('Массив Y: ');
   for k:=1 to 100 do
     Write (y[k],' '); {вывод массива осуществляется в строку, после каждого элемента печатается пробел}
 readln;
 end