Десять первых элементов массива упорядочить по возрастанию, а десять последних элементов по убыванию.

uses crt;
const n=20;
var a:array[1..n] of integer;
    i,j,x:integer;
begin
randomize;
writeln('Исходный массив');
for i:=1 to n do
 begin
  a[i]:=random(100);
  write(a[i]:4)
 end;
for i:=1 to n div 2-1 do
for j:=i+1 to n div 2 do
if a[i]>a[j] then
 begin
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x
 end;
for i:=n div 2+1 to n-1 do
for j:=i+1 to n do
if a[i]<a[j] then
 begin
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x
 end;
writeln('Отсортированный массив');
for i:=1 to n do
write(a[i]:4);
end.

program task1;
 var
 a:array[1..20]of integer;
 i,s,j:integer;
begin
  writeln('Исходный массив :');
 for i:=1 to 20 do readln (a[i]);
 begin
  writeln(a[i]);
 end;
 writeln('Массив упорядоченый по возрастанию :');
 for i:=2 to 10 do begin
  j:=i;
  while a[j]<a[j-1] do begin
   s:=a[j];
   a[j]:=a[j-1];
   a[j-1]:=s;
   dec(j);
   if j=1 then break;
  end;
 end;
 for i:=12 to 20 do begin
  j:=i;
  while a[j]>a[j-1] do begin
   s:=a[j];
   a[j]:=a[j-1];
   a[j-1]:=s;
   dec(j);
   if j=11 then break;
  end;
 end;
 for i:=1 to 10 do write(a[i]:4);
  writeln;
 writeln('Массив упорядоченый по убыванию  :');
 for i:=11 to 20 do write(a[i]:4);
 readln;
end.

uses crt;
const n=20;
var a:array[1..n] of integer;
    m,i,j,x:integer;
    f:boolean;
begin
clrscr;
randomize;
m:=1;
a[1]:=random(2*n)-n;
for i:=2 to n do
  begin
    repeat
      f:=false;
      x:=random(2*n)-n;
      for j:=1 to m do
      if a[j]=x then f:=true;
    until f=false;
    a[i]:=x;
    m:=m+1;
  write(a[i]:4);
 end;
readln
end.