Массивы поиск элементов

[танкек]

сижу на паре
дана последовательность действительных чисел a1,a2..,an. выяснить будет ли она возрастающий.
задача на нахождение элементов массива
с меня печеньки

[Arhangel7]

если массив является числовой прямой,то сравниваем первое значение с последним и смотрим, если первое больше последнего, то будет убывающей и на оборот...

[denisbrain]

Сообщение от танкек

сижу на паре
дана последовательность действительных чисел a1,a2..,an. выяснить будет ли она возрастающий.
задача на нахождение элементов массива
с меня печеньки

var s2,s:string;
    a:array [0..100] of integer;
    x:integer;
    l,dx:integer;
    t:boolean;
    t1:boolean;
    t2:boolean;
begin
Readln(s);
// вводим все элементы через запятую 
l:=0;
  for X:=1 to length(s) do
    if (s[x]=',') or (length(s)=x) then begin
    if length(s)=x then if s[x]<>',' then s2:=s2+s[x];
    l:=l+1;
    a[l-1]:=strtoint(s2);
    s2:='';
    end
    else s2:=s2+s[x];
// вводим все элементы через запятую 

// разбираем массив 
// считаем последовательность это a,b,c где (a-b)=(B-C)
    t:=false;t1:=false;t2:=false;
    for x:=0 to l-2 do begin
      if (a[x]-a[x+1])=(a[x+1]-a[x+2]) then begin
       t:=true;
    if (a[x]-a[x+1])<0 then t1:=true;
    if (a[x+1]-a[x+2])<0 then t1:=true;
    if (a[x]-a[x+1])>0 then t2:=true;
    if (a[x+1]-a[x+2])>0 then t2:=true;

      end;
    end;
    if t then begin
      writeln('Есть последовательность');
    if t1 then writeln('Возрастающая');
    if t2 then writeln('Убывающая');
    end;
end;