Действительные векторы X (x1, x2, .., x50) и Y (y1, y2, .., y50) преобразовать по правилу: большее из компонент считать новым значением, меньше — считать новым значением — Pascal(Паскаль)

uses crt;
const n=50;
var x,y:array[1..n] of integer;
    i,b:integer;
begin
clrscr;
writeln('Исходный массив X:');
for i:=1 to n do
 begin
  x[i]:=random(20)+1;
  write(x[i]:3);
 end;
writeln;
writeln;
writeln('Исходный массив Y:');
for i:=1 to n do
 begin
  y[i]:=random(20)+1;
  write(y[i]:3);
 end;
writeln;
writeln;
for i:=1 to n do
if x[i]<y[i] then
 begin
  b:=x[i];
  x[i]:=y[i];
  y[i]:=b;
 end;
writeln('Измененный массив X:');
for i:=1 to n do
write(x[i]:3);
writeln;
writeln;
writeln('Измененный массив Y:');
for i:=1 to n do
write(y[i]:3);
readln
end.