дан линейный массив с 32 случайных четных чисел. написать программу которая переставляет местами первый ипоследний элементы массива. массив строится программой

Const   N = 32;Var   A:array[1..N] of integer;   i,B:integer;BeginRandomize;Write('Исходный массив:');For i:= 1 to N do    Begin    A[i]:=random(N)*2+2;    Write(' ',A[i]);    End;B:=A[1];A[1]:=A[N];A[N]:=B;WriteLn;Write('Новый массив:');For i:= 1 to N do    Write(' ',A[i]);End.