Логическая функция Опции

[SeRGuS]

Описать логическую функцию, проверяющую упорядочены ли по возрастанию или убыванию элементы массива.

Проверьте где я допустил ошибку.

Код

uses crt;
const n=5;
type mass= array[1..n] of integer;
var a:mass;
   i:integer;
   p: boolean;

function yp(a:mass):boolean;
var i: integer;
    p:boolean;
begin
 p:=false;
  for  i:=1 to n-1 do
   if (a[i] > a[i+1]) or (a[i] < a[i+1]) then p:=true;
 yp:=p;
end;

begin
clrscr;
for i:=1 to n do begin
    write ('a[',i,']=');
    read (a[i]); end;

if yp(a) then writeln('упоряд.')
      else writeln('не упоряд.');
end.

[xds]

Код

if (a[i] > a[i+1]) or (a[i] < a[i+1]) then p:=true;

Надо проверять условия возрастания/убывания отдельно:

Код

{ ... }
p1 := True;
p2 := True;
for i := 1 to n - 1 do
 begin
   p1 := p1 and (a[i] > a[i + 1]);
   p2 := p2 and (a[i] < a[i + 1]);
 end;
yp := p1 or p2;
{ ... }