Паскаль АВС. Программа меняет местами половинки массива: (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.