Помогите пожалуйста. Срочно необходимо. Дан одномерный массив, состоящий из 10 частей.Вывести

Паскаль АВС. Программа меняет местами половинки массива: (6-10) и (1-5)

Program nana05;
uses crt;
const n=10;
var
  a:array [1..10] of integer;
  i,j,min,temp:integer;
begin
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  writeln();
  randomize;
  writeln('Элементы массива:');
  творение и вывод массива
  for i:=1 to n do
    begin
      a[i]:=random(100)-50;
      write (a[i]:5);
    end;
меняем местами половинки массива
  for i:=1 to 5 do
    begin
      temp:=a[i];
      a[i]:=a[5+i];
      a[5+i]:=temp;
    end;
  writeln();
  writeln('Итог:');
  for i:=1 to n do
    write(a[i]:5);
end.