[v1s2222]

Вот мини пример.

Код:

const
  N=50;
var
  a: array of integer;
  i, k, j: Integer;
begin
  SetLength(a, N+1);
  Randomize;
  for i:=1 to N do
    a[i]:=random(99);

  for i:=N downto 2 do begin
    if(a[i] < a[i-1]) then begin
      j:=1;
      for k:=i to N do begin
        a[j]:=a[k];
        inc(j);
      end;
      SetLength(a, j);
      Break;
    end;
  end;

  for i:=1 to j-1 do // j-1 в нашем случае длина полученного массива 
    write(a[i], ' ');