ПОМОГИТЕ НАПИСАТЬ ПРОГРАММУ НА ЯЗЫКЕ ПАСКАЛЬ

Уровень B. Массив имеет четное число элементов. Заполнить массив случайными числами и выполнить реверс отдельно в первой половине и второй половине.
Пример:
Массив:
1 2 3 4 5 6
Результат:
3 2 1 6 5 4

//Pascal ABC.NET 3.1 сборка 1256Const n=6;Var ar:array[1..n] of integer; i:integer;beginrandomize;writeln('Array:');for i:=1 to n do begin  ar[i]:=random(10);  write(ar[i]:4); end;for i:=1 to n div 4 doswap(ar[i],ar[n div 2-i+1]);for i:=n downto n-(n div 4) doswap(ar[i],ar[(n div 2)+1+n-i]);writeln;writeln('Final array:');for i:=1 to n dowrite(ar[i]:4);end.