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

program massiv;
uses crt;
var
a:array[1..15] of integer;
i,k,flag:integer;
begin
  clrscr;
  randomize;
  for i:=1 to 15 do
  begin
    a[i]:=random(101)-50;
    write(a[i]:4);
  end;
  writeln;
  k:=0;
  for i:=1 to 15 do
  begin
    if (i>2) and (i<7) then
    begin
      flag:=a[i];
      a[i]:=a[9-k];
      a[9-k]:=flag;
      k:=k+1;
    end;
    if (i>2) and (i<10) then
    begin
      textcolor(10);
      write(a[i]:4);
      textcolor(7);
    end
    else write(a[i]:4);
  end;
  readln;
end.