Найти отрезки неубывания в N последовательности целых чисел

var
    arr: array[1..100] of integer;
    i, j, k,n,m: integer;
begin
    readln(n); //количество элементов массива
    for i:=1 to n do
    read(arr[i]);
   // for i := 1 to m do begin
    //    arr[i] := random(256);
   //     write (arr[i]:4); если нужны случайные числа уберите три предыдущие строки и разкоментируйте эту
   // end;
    writeln; writeln;
    m:=n;
    for i := 1 to m-1 do
        for j := 1 to m-i do
            if arr[j] > arr[j+1] then begin
                k := arr[j];
                arr[j] := arr[j+1];
                arr[j+1] := k
            end;
    write ('Отсортированный массив: ');
    for i := 1 to m do
        write (arr[i]:4);
    writeln;
readln
end.

const m = 100;
 
var
  a: array[1..m] of integer;
  i, n: integer;
 
begin
  writeln('Введите члены последовательности в одну строку через пробел,');
  writeln('(не более ', m, ' целых чисел), и нажмите <Enter>:');
  n := 0;
  while not seekeoln and (n < 100) do
    begin
      inc(n);
      read(a[n])
    end;
  readln;
  if n > 0
    then begin
      writeln('Отрезки неубывания последовательности:');
      write(a[1], ' ');
      for i := 2 to n do
        begin
          if a[i - 1] > a[i] then writeln;
          write(a[i], ' ')
        end
    end
    else write('Пустая последовательность');
  readln
end.