Разбиение и сортровка одномерного массива Опции

[Slipknot]

Дан массив X(N) (N<=60) причём кол-во элементов кратно 3. Разбить массив на 3 части и в каждой поменять наибольший элемент с наименьшим

[Reflex]

 program Slipknot
var x : array [ 1..60 ] of integer;
n : integer;
size : integer;
min, min_id, max, max_id : integer;

procedure change(st, f : integer);
var i : integer;
begin
  min_id:=st;
  max_id:=st;
  for i:= st to f do begin
    if x[i]>x[max_id] then max_id:=i;
    if x[i]<x[min_id] then min_id:=i;
  end;
  i:=x[min_id];
  x[min_id]:=x[max_id];
  x[max_id]:=i;
end;

var i:integer;
begin
  read(n);
  for i:= 1 to n do
    read(x[i]);
  size:=n div 3;
  change(1,size);
  change(size+1, 2*size);
  change(2*size+1,n);
  for i:= 1 to n do
    write(x[i],' ');
  readln;
  readln;
end.

Вот готовый код, откомментируй его.