Упорядочить каждые третьи элементы последней трети массива по возрастанию обратных значений

program kursovaya1; 
var 
D:array [0..36] of real; 
i,j: integer; 
t: real; 
begin 
randomize; 
for i:=1 to 36 do 
begin 
D[i]:=random(17)-7; 
write (D[i]:6) 
end; 
 
writeln; 
writeln ('Упорядоченный массив:'); 
 
for i:=25 to 36-1 do 
for j:=i+1 to 36 do 
if D[i]<D[j] then 
begin 
t:=D[i]; 
D[i]:=D[j]; 
D[j]:=t; 
end; 
 
for i:=25 to 36 do 
begin 
if i mod 3 = 0 then 
write (D[i]:6) 
end; 
end.

const 
  Parts=3; Step=3; k=4; W=4;
  n=k*Parts*Step; Base=n div Parts*(Parts-1)-1;
var
  v: array [0..n-1] of Integer;
  i, j, t: Integer;
begin
  Randomize;
  for i:=0 to n-1 do v[i]:=-7+Random(17);
  WriteLn('v =');
  for i:=0 to Parts-1 do begin
    for j:=0 to k*Step-1 do Write(v[i*k*Step+j]:W); WriteLn;
  end;
  WriteLn('Каждый ',Step,'-й последней 1/',Parts,':');
  for i:=1 to k do Write(v[Base+i*Step]:W); WriteLn;
 
  for i:=1 to k-1 do for j:=i+1 to k do
    if v[Base+i*Step]<v[Base+j*Step] then begin
      t:=v[Base+i*Step]; v[Base+i*Step]:=v[Base+j*Step]; v[Base+j*Step]:=t;
    end;
 
  WriteLn('v'' =');
  for i:=0 to Parts-1 do begin
    for j:=0 to k*Step-1 do Write(v[i*k*Step+j]:W); WriteLn;
  end;
  WriteLn('Каждый ',Step,'-й последней 1/',Parts,':');
  for i:=1 to k do Write(v[Base+i*Step]:W); WriteLn;
end.