Giúp mik vs khó qué !! T-T Gấp ạ

uses crt;
var i,n,d:integer;
a:array[1..100] of integer;
begin
clrscr;
write('nhap so ptu:');readln(n);
for i:=1 to n do
begin
 write('A[',i,']=');
 readln(a[i]);
end;
for i:=1 to n do
begin
 if i=1 then
  if (a[i] <a[i+1])and(a[i] <a[n])  then d:=d+1;
 if i =1 then
  if (a[i] >a[i+1])and(a[i]>a[n]) then d:=d+1;
 if i >1 then
  if (a[i] <a[i+1])and(a[i]<a[i-1]) then d:=d+1;
 if i >1 then
  if (a[i] >a[i+1])and(a[i]>a[i-1]) then d:=d+1;
end;
if d=n then write('thoa man') else write('ko thoa man');
readln;
end.

(mong dc 5*+hay nhất)