Дана последовательность из n атуральных чисел , определяюшая рост учеников в классе . определить , выстроены ли ученики по росту

Var i, k: integer;   
        N: array[1..10] of real;  
    begin   
       for i:=1 to 10 do readln(N[i]); 
       k:=1;   
       for i:=1 to 9 do   
         if k<>0 then        
            if N[i]<N[i+1] then k:=k+1                       
                               else k:=0;     
       if k<>0 then writeln('Ученики выстроены по росту')   
                  else writeln('Ученики выстроены не по росту'); 
    end.