Не работает процедура сортировки

Program Fuct_Obmen;
Uses Crt;
 
Var Masi: array [1..100] of integer;
 
      Procedure Sort_Obm(Mas: array [1..100] of integer);
       Var j,k,t,n,buf: integer;
        Begin
       
           Writeln('Ââåäèòå ðàçìåð ìàññèâà');
            Read(n);
           
          For j:= 1 to n do
           Begin
            Read(Mas[n]);
           End;
           
           k:=n;
 
             Repeat
               t:=0;
               For j:= 1 to k-1 do
                Begin
                
                   If Mas[j]>Mas[j] then
                    begin
                    
                      Buf:=mas[j];
                       Mas[j]:=Mas[j+1];
                        Mas[j+1]:=Buf;
                     t:=j;
                    End;
                
                End;
             
               k:=t;
             Until t = 0;
       
           Writeln;
            Writeln('Èñêîìûé ìàññèâ');
       
          For j:= 1 to n do
           Begin
             Write(Mas[j]:4);
           End;
       
        End;
 
Begin
 
  Sort_obm(Masi);
 
End.