В последовательности чисел найти и вывести последовательность подряд идущих чисел наибольшей длины. Вывести наибольшую длину max — Pascal(Паскаль)

Ввод: n=10
2 1 5 3 7 8 6 12 9 11
Вывод: max = 5
5 6 7 8 9

uses crt;
var m:array[1..100]of integer;
i,j,max,p,k,N:integer;
 
begin
    clrscr;
    write('N -> ');
    readln(N);
    write('Введите массив -> ');
    for i:=1 to N do read(m[i]);
    readln;
    max:=-1;
    p:=0;
    k:=1;
    for i:=2 to N do if m[i]>m[i-1] then inc(k) else
    begin
        if k > max then
        begin
            max := k;
            p := i - 1;
        end;
        k := 1;
    end;
    if k > max then
    begin
        max := k;
        p := i - 1;
    end;
    writeln('MAX = ',max);
    for i:=p - max + 1 to p do write(m[i],' ');
    readln;
end.