Вывести ту половину массива, в которой числа расположены по убыванию

uses crt;
const n=10;
type mas=array[1..n] of integer;
 
function Poryadok(a:mas;i1,i2:byte):boolean;
var i:byte;
    f:boolean;
begin
f:=true;
i:=i1+1;
while(i<=i2)and f do
if a[i]>a[i-1] then f:=false
else inc(i);
Poryadok:=f;
end;
 
procedure Vyvod(a:mas;i1,i2:byte);
var i:byte;
begin
for i:=i1 to i2 do
write(' ',a[i]);
writeln;
end;
 
var a:mas;
    i:byte;
begin
writeln('Введите ',n,' элементов массива, целые числа');
for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i])
 end;
clrscr;
writeln('Исходный массив');
Vyvod(a,1,n);
if Poryadok(a,1,n div 2) then Vyvod(a,1,n div 2);
if Poryadok(a,n div 2+1,n) then Vyvod(a,n div 2+1,n);
if not Poryadok(a,1,n div 2) and not Poryadok(a,n div 2+1,n) then
writeln('Обе части массива не упорядочены по убыванию')
end.