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

Turbo Pascal

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 klt;gt;0 then        
            if N[i]lt;N[i+1] then k:=k+1                       
                               else k:=0;     
       if klt;gt;0 then writeln('Воспитанники выстроены по росту')   
                  else writeln('Воспитанники выстроены не по росту'); 
    end.