Упорядочить по возрастанию три числа

Uses crt;
const n=10; m=3;
Type mas=array[1..n] of integer;
     mas2=array[1..m] of integer;
Var X,Y,Z:mas; d:mas2; a,b,c:integer;
  Procedure Vvod(var X:mas; n:integer);
  Var i:integer;
    Begin
      for i:=1 to n do
        X[i]:=Random(100);
    End;
  Procedure Print(X:mas; n:integer);
  Var i:integer;
    Begin
      for i:=1 to n do
        Write(X[i]:4);
      WriteLn
    End;
  Procedure min_elem(Var a:integer; X:mas);
  Var i:integer;
    Begin
      a:=100;
      for i:=1 to n do
        if X[i]<a then a:=X[i];
    End;
  Procedure sort(Var d:mas2; a,b,c,m:integer);
  Var i,k,f:integer;
    Begin
      d[1]:=a;
      d[2]:=b;
      d[3]:=c;
      for k:=1 to m-1 do
       for i:=1 to m-k do
         if d[i]>d[i+1] then
                          Begin
                            f:=d[i];
                            d[i]:=d[i+1];
                            d[i+1]:=f;
                          End;
      for i:=1 to m do
      Write(d[i]:4);
    End;
Begin clrscr; randomize;
  Vvod(X,n);
  WriteLn('MASSIV X');
  Print(X,n);
  Vvod(Y,n);
  WriteLn('MASSIV Y');
  Print(Y,n);
  Vvod(Z,n);
  WriteLn('MASSIV Z');
  Print(Z,n);
  min_elem(a,X);
  min_elem(b,Y);
  min_elem(c,Z);
  WriteLn;
  sort(d,a,b,c,m);
  ReadLn;
End.