Сортировка одномерного массива по убыванию методом «Пузырька». Процедуры

uses crt;
const n=10;
type mas=array[1..n] of integer;
var a,b:mas;
    min,i:integer;
procedure invect(var x:mas;n:integer);
 var i:integer;
begin
 for i:=1 to n do
  x[i]:=random(100)-50;
end;
 
procedure outvect(var x:mas;n:integer);
 var i:integer;
begin
 for i:=1 to n do
  write(x[i]:4);
end;
 
procedure sort(var x:mas;n:integer);
 var i,j,tmp:integer;
begin
 for i:=1 to n-1 do
  for j:=1 to n-1 do
   if x[j]<x[j+1] then
    begin
     tmp:=x[j];
     x[j]:=x[j+1];
     x[j+1]:=tmp;
    end;
end;
begin
 writeln('Ìàññèâ À :');
  invect(a,n);
  outvect(a,n);
 writeln;
 writeln('Îòñîðòèðîâàíûé ìàññèâ À :');
  sort(a,n);
  outvect(a,n);
 writeln;
  writeln('Ìàññèâ B :');
  invect(b,n);
  outvect(b,n);
 writeln;
 writeln('Îòñîðòèðîâàíûé ìàññèâ B :');
  sort(b,n);
  outvect(b,n);
 writeln;
  min:=b[1];
  for i:=1 to n do
   if b[i]<min then
    min:=b[i];
   if min<0 then
    begin
     writeln('Ìèíèìàëüíûé ýëåìåíò = ',min);
      for i:=1 to n do
       begin
        a[i]:=abs(a[i]);
         write(a[i]:4);
       end;
    end
   else
    writeln('Ìèíèìàëíûé ýëåìåíò = ',min);
 
 
end.