Viết hàm kiểm tra số đơn điệu?

uses crt;

var s:string;

function kt(s:string):boolean;

var i,dem:byte;

begin

dem:=0;

for i:=2 to length(s)-1 do

if ((s[i-1]<s[i]) and (s[i]>s[i+1])) or ((s[i-1]>s[i]) and (s[i]<s[i+1])) then

dem:=dem+1;

if dem=length(s)-2 then kt:=true else kt:=false;

end;

begin

clrscr;

write('nhap so nguyen duong: '); readln(s);

if kt(s)=true then write('so vua nhap la so don dieu') else

write('so vua nhap khong phai so don dieu');

readln;

end.

chúc bạn học tốt

program MIDI;
uses crt;
var i,j,n :integer; A:array[1..100] of integer; KT: boolean;
begin
        clrscr;
        write('Nhap so n: ');readln(n);
        For i:=1 to n do
                begin
                        write('A[',i,']= ');
                        readln(A[i]);
                end;
        KT:=true;
        if A[1]<A[2] then
        begin
        For i:=1 to n-2 do
        if (A[i]<=A[i+1]) and (A[i+1]<=A[i+2]) then
                begin
                        KT:=false;
                        break;
                end;
        end
        else
        For j:=1 to n-2 do
        if (A[j]>=A[j+1]) and (A[j+1]>=A[j+2]) then
                begin
                        KT:=false;
                        break;
                end;

        if KT=true then write('YES')
                   else write('NO');
        readln;
end.