Ввести и упорядочить по убыванию четыре массивы, которые содержат N целых чисел

Type mas=array[1..7] of integer;
Var A,B,C,D:mas;
    n1,n2,n3,n4:integer;
Procedure Input(Var A:mas;n:integer);
Var i:integer;
Begin
    For i:=1 to n do
     A[i]:=random(31)-15;
End;
Procedure Output(A:mas;n:integer;s:string);
Var i:integer;
Begin
    writeln(s);
    For i:=1 to n do
     write(A[i]:4);
    writeln;
End;
Procedure Sort(Var A:mas;n:integer);
Var i,j,t:integer;
Begin
    For i:=n downto 2 do
     For j:=2 to i do
      if A[j]>A[j-1] then
      Begin
        t:=A[j];
        A[j]:=A[j-1];
        A[j-1]:=t;
      End;
End;
Begin
    n1:=5;n2:=4;n3:=6;n4:=7;
    Input(A,n1);
    Output(A,n1,'Исходный массив A');
    
    Input(B,n2);
    Output(B,n2,'Исходный массив B');
    
    Input(C,n3);
    Output(C,n3,'Исходный массив C');
    
    Input(D,n4);
    Output(D,n4,'Исходный массив D');
    
    Sort(A,n1);
    Output(A,n1,'Отсортированный массив A');
    
    Sort(B,n2);
    Output(B,n2,'Отсортированный массив B');
    
    Sort(C,n3);
    Output(C,n3,'Отсортированный массив C');
    
    Sort(D,n4);
    Output(D,n4,'Отсортированный массив D');
    readln;
End.