Переставить элементы массива в обратном порядке.паскаль

Program n1;const n=15;var a:array[1..n] of integer;i,k:integer;beginrandomize;writeln('исходный массив: ');for i:=1 to n dobegina[i]:=random(15);write(a[i],' ');end;writeln;for i:=1 to n div 2 dobegin k:=a[i];a[i]:=a[n+1-i];a[n+1-i]:=k;end;writeln('инвертнутый массив:');for i:=1 to n dowrite(a[i],' ');end.