Инверсия в масиве

[user10]

Помогите пожалуйста реализовать.
в масиве инвертировать те его части которые идут по возрастанию.
на в ходе 3 3 4 5 4 2 1 0 3 1
на выходе 3 5 4 3 4 2 1 3 0 1

[Asker13]

program Project1;

{$APPTYPE CONSOLE}

const
  N = 10;
var
  a: array [1..N] of Integer;
  i,j,k: Integer;

procedure Swap(var x,y: Integer);
var
  t: Integer;
begin
  t := x;
  x := y;
  y := t;
end;

begin
  {Randomize;
  for i := 1 to N do begin
    a[i] := Random(100);
    Write(a[i], ' ');
  end;
  WriteLn;}

  for i := 1 to N do Read(a[i]);

  i := 1;

  while i < N do begin
    j := i;
    while (a[j] < a[j+1]) and (j < N) do Inc(j);
    if j-i > 0 then
      for k := 1 to (j-i+1) div 2 do
        Swap(a[k+i-1], a[j-k+1]);
    i := j+1;
  end;

  WriteLn;

  for i := 1 to N do Write(a[i], ' ');
  ReadLn;

end.

[user10]

Спасибо, работает !