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

program posledovatelnost;
uses crt;
var a:array[1..10] of integer;
u, v,i:integer;
begin
clrscr;
writeln('vvedite 10 elementov massiva');
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.

Const n=5;
var i,q,w,k,l:integer;
    a,b:real;
begin
k:=0;
     for i:=1 to n do
     begin
          inc(k);
          write('Ââåäèòå ',k,' ýëåìåíò=');Read(a);
          inc(k);
          write('Ââåäèòå ',k,' ýëåìåíò=');Read(b);
          if a<b then inc(q);
          if b<a then inc(w);
          if (q<>0) and (w<>0) then break;
     end;
if q>w then writeln('Ïîñëåäîâàòåëüíîñòü áûëà âîçðîñòàþùåé äî ',b,' ýëåìåíòà')
else writeln('Ïîñëåäîâàòåëüíîñòü áûëà óáûâàþùåé äî ',b,' ýëåìåíòà');
if (q<>0) and (w<>0) then writeln('Ïîñëåäîâàòåëüíîñòü ïðåðâàíà');
if (w<>0) and (q=0) then writeln('Ïîñëåäîâàòåëüíîñòü óáûâàþùàÿ');
if (w=0) and (q<>0) then writeln('Ïîñëåäîâàòåëüíîñòü âîçðîñòàþùàÿ');
end.

Const n=5;
var i,q,w,k,l:integer;
    a,b:real;
begin
k:=0;
     While k<10 do
     begin
          inc(k);
          write('Ââåäèòå ',k,' ýëåìåíò=');Read(a);
          inc(k);
          write('Ââåäèòå ',k,' ýëåìåíò=');Read(b);
          if a<b then inc(q);
          if b<a then inc(w);
          if (q<>0) and (w<>0) then break;
     end;
if q>w then writeln('Ïîñëåäîâàòåëüíîñòü áûëà âîçðîñòàþùåé äî ',b,' ýëåìåíòà')
else writeln('Ïîñëåäîâàòåëüíîñòü áûëà óáûâàþùåé äî ',b,' ýëåìåíòà');
if (q<>0) and (w<>0) then writeln('Ïîñëåäîâàòåëüíîñòü ïðåðâàíà');
if (w<>0) and (q=0) then writeln('Ïîñëåäîâàòåëüíîñòü óáûâàþùàÿ');
if (w=0) and (q<>0) then writeln('Ïîñëåäîâàòåëüíîñòü âîçðîñòàþùàÿ');
end.