Обнулить самую длинную последовательность возрастающих чисел

[Zevsnet]

Доброе время суток всем... помогите пожалуйста доработать процедуру которая будет обнулять самую длинную последовательность возрастающих чисел!

procedure Zero(var Zero : posled );
var
   i : integer;
begin
   for i := 1 to N do
   ? ? ? ? ? ? ? ? ? ? ? ? ?
  ? ? ? ? ? ? ? ? ? ? ? ? ?
       Zero[i] := 0;
end;

const
	N=10;
type
		posled = array [1..N] of integer;
		
{---------------------------------random-------------------------------------------}
	procedure Rand (var thearr: posled );
var
	i:integer;
	begin 
	randomize;
		for i:=1 to N do
			thearr[i]:=random(N);
	end;


{-------------------------------Displey---------------------------------------------}
	procedure print (var thearr: posled);
var
	i:integer;
begin 
 	for i:=1 to N do
	begin
		write(thearr[i],'');
		if i<N then write(',')
		else write('.');
	end;
end;
{----------------------------------ZERO---------------------------------------------}	
			//Процедура обнуления длинного числа
{Procedure Zero(Var Zero : posled);

Var 
	I : Integer;
	
 Begin
    For I := 1 To N Do 
	Zero[I] := 0;
End;}
{--------------------------------main programm--------------------------------------}
var
	arr: posled;
begin
	write('Massiv random:');
	Rand(arr);
	Print(arr);
		writeln;
		

		
	write('Zero masiv (up): ');
		Zero(arr);
		Print(arr);
end.