Задан массив х(50). переписать в массив у элементы массива х в обратном порядке

Var
   x, y: array [1..50] of integer;
   i: integer;
begin
     for i := 1 to 50 do
         x[i] := random(50);
     for i := 1 to 50 do
         y[i] := x[51 - i];
     for i := 1 to 50 do
          writeln('x[', i, '] => ', x[i]);
     for i := 1 to 50 do
          writeln('y[', i, '] => ', y[i]);
end.

Вот, циклы объединять не стал, т.к. они всё-таки разные дела делают:)