Сортировка массива

 uses
  SysUtils,
  windows;
type massiv=array[1..20000] of integer;
  var mas1, mas2: massiv;
  t: integer;
  i: integer;
 
      procedure zap(var x:massiv; n: integer);  //процедура заполнения массива
      var i: integer;
        begin
        for i:=1 to n do x[i]:=random(100);
        end;
             procedure voz (var x: massiv; n: integer); //сортировка по возрастанию
             var i: integer;
              begin
              for i:=1 to n do x[i]:=i;
              end;
begin
randomize;
zap(mas1, 5);
for i:=1 to 5 do
write(mas1[i], ' ');
voz(mas1, 5);
write(mas1[i]);
readln;
end.

procedure voz (var x: massiv; n: integer); //ñîðòèðîâêà ïî âîçðàñòàíèþ
var i,j,t: integer;
begin
for i:=1 to n-1 do
for j:=i+1 to n do
if x[i]>x[j] then
 begin
  t:=x[i];
  x[i]:=x[j];
  x[j]:=t
 end;

procedure voz (var x: massiv; n: integer); //сортировка по возрастанию
var i, j, t: integer;
begin
    for i:=1 to n-1 do 
        for j:=i+1 to n do
            if (x[i]>x[j]) then
            begin
                t := x[i];
                x[i] := x[j];
                x[j] := t;
            end;
end;