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

[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.