Помогите плизЗадан массив Х(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, '] =gt; ', x[i]);
     for i := 1 to 50 do
          writeln('y[', i, '] =gt; ', y[i]);
end.

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