Одномерный массив. Поменять местами первый и последний элементы и отсортировать массив по возрастанию методом выбора

program z;
uses crt;
var i,n,j,k:byte; min:integer;
a:array [1..100] of integer;
procedure swap(var b,c:integer);
     var r:integer;
     begin
          r:=b;
          b:=c;
          c:=r;
     end;
begin
     clrscr;
     repeat
           write('Ââåäèòå êîë-âî ýëåìåíòîâ ìàññèâà: ');
           readln(n);
           if (n<=0) or (n>100)
              then
                  writeln('Âû çàäàëè íåâåðíûé ïàðàìåòð! Ïîâòîðèòå ïîïûòêó!');
           writeln;
     until (n>0) and (n<=100);
     clrscr;
     write('Èñõîäíûé ìàññèâ: ');
     randomize;
     for i:=1 to n do
         begin
              a[i]:=trunc((15-(-15))*random+(-15));
              write(a[i],' ');
         end;
     writeln;
     write('Ìàññèâ ñ çàìåíîé ïåðâîãî è ïîñëåäíåãî ýëåìåíòà: ');
     swap(a[1],a[n]);
     for i:=1 to n do
         write(a[i],' ');
     writeln;
     for i:=1 to n-1 do
         begin
              min:=a[i];
              k:=i;
              for j:=i+1 to n do
                  if a[j]<min
                     then
                         begin
                              min:=a[j];
                              k:=j;
                         end;
              swap(a[k],a[i]);
         end;
     write('Óïîðÿäî÷åííûé ìàññèâ: ');
     for i:=1 to n do
         write(a[i],' ');
     readln;
end.