Отсортировать в порядке возр. и убыван.

program proga;
  uses crt;
    var a:array[1..10] of integer;
    i:integer;
    y:integer;
      w:boolean;
    begin
      writeln('massiv :');
      for i:=1 to 10 do begin
       a[i]:=random(10)+1;
       write(a[i]:4);
         end;
 
         repeat w:=true;
 
          for i:=1 to 9 do begin
           if a[i]>a[i+1] then
           begin
             y:=a[i];
             a[i]:=a[i+1];
             a[i+1]:=y;
             w:=false;
             end;
             end;
           until w;
             writeln;
              write('vozrast:');
              writeln;
 
             for i:=1 to 10 do begin
             Write(a[i]:4);
 
              end;
             repeat w:=true;
 
          for i:=1 to 9 do begin
           if a[i]<a[i+1] then
           begin
             y:=a[i];
             a[i]:=a[i+1];
             a[i+1]:=y;
             w:=false;
             end;
             end;
           until w;
            writeln;
           writeln('ubiv: ');
 
            for i:=1 to 10 do
              write(a[i]:4);
 
          end.

program sort;
const 
n=15;
var
a :array[1..n] of integer;
i,j,t :integer;
begin
writeln('Введите массив');
 
for i:=1 to n do
read(a[i]);
 
for i:=1 to n-1 do
for j:=i+1 to n do
begin
 if a[i] < a[j] then
  begin
  t:=a[i];
  a[i]:=a[j];
  a[j]:=t;
  end;
end;
 
writeln;
for i:=1 to n do
write(a[i]);
end.

 if a[i] < a[j] then

 if a[i] > a[j] then