Проверить возрастает/убывает последовательность чисел и вывести начала/конец и саму последовательность

{
Дана СЛУЧАЙНАЯ последовательность из 10 чисел
    - числа вводить самому
 
Проверить через WHILE, убывает или возрастает последовательность!
    - если прерывается - остановить и написать до какого
              момента она была возрастающая или убывающая
 
Например:  2 3 4 5 6 4 6 3 4 4 - Возрастающая с 1 по 5 элемент. Эдементы: 2 3 4 5 6
                6 5 4 7 6 5 2 7 8 3 - Убывающая с 1 по 3 элемент. Элементы 6 5 4
ИЛИ ТАК
Например 2: 2 3 4 5 6 4 3 2 4 8 - Возрастающая с 1 по 5 элемент. Эдементы: 2 3 4 5 6
                                               Убывающая с 5 по 8 элемент. Элементы 6 4 3 2
                                               Возврастает с 8 по 10 элемент. Элементы 2 4 8
}
program posledovatelnost;
uses crt;
var a:array[1..10] of integer;
    n,i,j:integer;
begin
     clrscr;
     writeln('введите 10 элементов массива');
     for i:=1 to 10 do
     begin
          readln( a[i] );
     end;
i:=1;
 
     while (i<10) and (a[i]<a[succ(i)])  do inc(i);
     begin
          writeln(' vozvrastaet do ',i, ' elementa');
     end;
 
     while (i<10) and (a[i]>a[succ(i)]) do inc(i);
     begin
          writeln(' ubyvaet do ',i, ' elementa');
     end;
readln;
end.

program posledovatelnost;
uses crt;
var a:array[1..10] of integer;
    u, v,i:integer;
begin
     clrscr;
     writeln('введите 10 элементов массива');
     for i:=1 to 10 do
     begin
          readln( a[i] );
     end;
     u:=10; v:=10;
     for i:=2 to 10 do
     begin
      if a[i]>=a[i-1] then u:=i-1;
      if a[i]<=a[i-1] then v:=i-1;
      if (u<10) and (v<10) then break;
     end;
     if u=10 then writeln(' ubyvaet do ',u, ' elementa')
     else
     if v=10 then writeln(' vozvrastaet do ',v, ' elementa')
     else
     if u>v then writeln(' ubyvaet do ',u, ' elementa')
     else writeln(' vozvrastaet do ',v, ' elementa');
     readln;
end.

program posledovatelnost;
uses crt;
var a:array[1..10] of integer;
    u, v,i:integer;
begin
     clrscr;
     writeln('введите 10 элементов массива');
     for i:=1 to 10 do
     begin
          readln( a[i] );
     end;
     u:=10; v:=10; i:=2;
     while i<11 do
     begin
      if a[i]>=a[i-1] then u:=i-1;
      if a[i]<=a[i-1] then v:=i-1;
      if (u<10) and (v<10) then break;
      inc(i);
     end;
     if u=10 then writeln(' ubyvaet do ',u, ' elementa')
     else
     if v=10 then writeln(' vozvrastaet do ',v, ' elementa')
     else
     if u>v then writeln(' ubyvaet do ',u, ' elementa')
     else writeln(' vozvrastaet do ',v, ' elementa');
     readln;
end.