Помогите плизЗадан массив Х (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. Вот, циклы объединять не стал, т.к. они все-таки разные дела делают