Помогите пожалуйста. Срочно...

Помогите пожалуйста. Срочно нужно. Дан одномерный массив, состоящий из 10 элементов.Вывести на экран в строчку.Поменять местамизначения от 6-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:=random(100)-50;
      write (a:5);
    end;
{меняем местами половинки массива}
  for i:=1 to 5 do
    begin
      temp:=a;
      a:=a[5+i];
      a[5+i]:=temp;
    end;
  writeln();
  writeln('Результат:');
  for i:=1 to n do
    write(a:5);
end.