Написать программ в авс паскаль. заданные два числовых массива x(n) и y(n) преобразуйте их по правилу: для каждой пары большее из xi и yi примите в качестве нового значения xi , а меньшее — в качестве нового значения yi . выведите исходные и преобразованные массивы.

//PascalABC.NET 3.1 сборка 1200
begin
    var n := ReadInteger('n =');
    var X := ArrRandom(n, -99, 99);
    X.Println;
    var Y := ArrRandom(n, -99, 99);
    Y.Println;
    
    for var i := Low(X) to High(X) do
        if Y[i] > X[i] then Swap(Y[i], X[i]);
    
    writeln();
    X.Println;
    Y.Println;
end.