сортировать вторую половину по убыванию массив паскаль

const n=10;var a:array[1..10] of integer;i,j,z:integer;beginwriteln('Исходный массив: ');for i:=1 to n do begina[i]:=random(100);write(a[i]:4);end;writeln;for i:=6 to 9 dofor j:=i+1 to 10 doif a[i]<a[j] thenbeginz:=a[i];a[i]:=a[j];a[j]:=z;end;Write('Результат: ');for i:=1 to 10 doWrite(a[i]:4);end.