Макс кол-во подряд идущих чисел

//Опишите на языке программирования алгоритм подсчета максимального количества подряд идущих элементов
//Kаждый из которых больше предыдущего, в целочисленном массиве длины 30.
//Ибо знаю только паскаль, то на нем)
var
 a:array[1..30] of integer;
 nS,nT,n,i,t,R:integer;
begin
 //Записываем в массив случайные числа от 1 до 100
 Randomize;
 for i:=1 to 30 do
     a[i]:=random(99+1);
 //Ищем кол-во подряд идущих элементов, таких что следующий, больше предведущего
 for i:=1 to 29 do begin
     if a[i]<a[i+1] then begin
         n:=n+1;
         t:=i+1;
         end
     else begin
         if n>nS then begin
             nS:=n;
             nT:=t;
             end;
         n:=0;
         end;
     end;
 for i:=1 to 30 do
     write(a[i],' ');
 writeln();
 writeln('Элементов: ',nS+1,'  Начиная с элемента: ',nT-nS);
 for i:=nT-nS to nT do
     write(a[i],'  ');
end.

{Пример вывода:
90 59 77 88 24 63 40 82 83 93 69 37 8 19 25 92 80 4 27 61 99 24 29 0 42 69 48 87 48 83
Элементов: 4  Начиная с элемента: 7
40  82  83  93
}