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

   procedure inmas(n:=integer;var a:mas)
    var i:integer;
    begin
        for i:=1 to n do begin
             write(i,': ');
             readln(a[i]);end;
        end;

 procedure outmas(n:=integer;var a:mas)
    var i,m:integer;
         p:boolean;
         b:real;
    begin
       m:=n;
       repeat
       m:=m-1; p:=true;
        for i:=1 to n do
           if a[i]>a[i+1] then begin
              b:=a[i];a[i]=a[i+1];a:=mas;
              a[i+1]:=b;p:folse end
       until p;
    end

procedure Select(var item: DataArray; count:integer);
       var
         i, j, k: integer;
         x: DataItem;
       begin
         for i := i to count-1 do
         begin
           k := i;
           x := item[i];
           for j := i+1 to count do { найти элемент с наименьшим
                     значением }
           if item[j]<x then
           begin
               k := j;
               x := item[j];
             end;
           item[k] := item[i];  { обмен }
           item[i] := x;
         end;
     end; { конец сортировки выбором  }