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

Type mas = array [1..5] of integer;
var 
i,g: integer;
FlagSort:boolean; 
 
function Sort(var m1:mas);
Var i:Byte;
Begin
  FlagSort:=True;
  For i:=2 to 5 do
    If m1[i]>m1[i-1] then
    Begin
      FlagSort:=False;
      Break;
    End;
End;
 
var
m:mas;
begin 
writeln('Введите  массив');
for i:= 1 to 5 do 
read(m[i]); 
Sort(m[i]);
end.

if Sort(m) then write('Sorted')
              else for i:=1 to 5 do write(m[i]:4);

Type mas = array [1..20] of integer;
procedure ubyv(a:mas;n:byte;var f:boolean);
var i:byte;
begin
i:=2;
f:=true;
while (i<=n)and f do
if a[i]>a[i-1] then f:=false else inc(i);
end;
var m:mas;
    n,i:byte;
    f:boolean;
begin
write('Размер массива n=');
readln(n);
writeln('Введите  массив');
for i:=1 to n do
read(m[i]);
ubyv(m,n,f);
if f then write('Массив упорядочен по убыванию')
else write('Массив не упорядочен по убыванию')
end.

const n=6;
Type mas = array [1..6] of real;
procedure ubyv(a:mas;var f:boolean);
var i:byte;
begin
i:=2;
f:=true;
while (i<=n)and f do
if a[i]>a[i-1] then f:=false else inc(i);
end;
const TA:mas=(4.2,3.15,3.005,-2.4,0.1528,-12.77);
var i:byte;
    f:boolean;
begin
for i:=1 to n do
write(TA[i]:8:4);
writeln;
ubyv(TA,f);
if f then write('Массив упорядочен по убыванию')
else write('Массив не упорядочен по убыванию')
end.