Дан одномерный массив , заполненный случайным образом десятью числами из диапазона от 0 до 100. найтисамую длинную послпоследовательность чисел, по возрастанию. вывести ее и ее длину на экран.

Const   n=10; var   a: array[1..n] of integer;   i,_start,_end, startind, endind: integer; begin   randomize;   write('исходный массив: ');   _start: =-1; _end: =-1;   startind: =-1; endind: =-1;     for i: =1 to n do   begin       a[i]: =random (0,100);       write(a[i],' ');   end;   writeln;   for i: =2 to n do   begin       if a[i]> a[i-1] then           if _start > -1 then _end : = i else                 begin                 _start : = i-1;                 _end : = i;                 end       else           begin                     if (_start > -1) and ((endind - startind) < (_end - _start)) then               begin                 startind : = _start;                 endind : = _end;               end;                         _start : = -1;           _end : = -1;           end;   end;     if startind > -1 then   begin       writeln('длина диапазона: ', (endind-startind+1));       write('значения из диапазона: ');       for i: =startind to endind do write(a[i],' ');   end; end.

Это олимпиада по иформатике 9-11 класс №3