Элементы заданного массива B50 переписать в новый массив A50 в обратном порядке.

const    n = 50;var    i: integer;    a, b: array[1..n] of integer;begin    for i := 1 to n do     begin        a[i]:= random(100)-50;        write(a[i], ' ');    end;    writeln;        for i := 1 to n do     begin        b[i]:= a[n-(i-1)];        write(b[i], ' ');    end;end.