Помогите плиз

Задан массив Х(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.

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

Боюсь, что на бэйсике здесь мало кто пишет