Дан одномерный массив из 15 элементов. Представить в обратном порядке элементы, расположенные между вторым и десятым элементами — Pascal(Паскаль)

Program mas;

Uses crt;

Const
  n = 10;

var
  a: array [1 .. n] of integer;
  i, k: byte;
  c: integer;

Begin
  Clrscr;
  Randomize;
  Write('Исходный массив: ');
  For i := 1 to n do
  begin
    a[i] := random(19) - 9;
    Write(a[i]:4);
  end;
  Writeln(^j);
  Write('                 ');
  k := 9;
  For i := 3 to k div 2 + 1 do
  begin
    c := a[i];
    a[i] := a[k - i + 3];
    a[k - i + 3] := c;
  end;
  For i := 1 to n do
    Write(a[i]:4);

End.