Type
 TMatrix5=Array[1..5,1..5] Of Double;
 TMatrix6=Array[1..6,1..6] Of Double;
 Temp:Array[1..15] Of Double;

Var
 a,na:TMatrix5;
 b,nb:TMatrix6;
 i,j,n,k:Integer;
 d:Double;

Begin
 {Какой-нибудь ввод. Сам организуешь?}
 n:=1;
 For i:=1 To 4 Do
   For j:=i+1 To 5 Do
   Begin
     Temp[i]:=a[i,j];
     Inc(i)
   End;
 For i:=1 To n-1 Do
 Begin
   k:=i;
   d:=Temp[i];
   For j:=i+1 To n Do
     If d<Temp[j] Then
     Begin
       k:=j;
       d:=Temp[j]
     End;
   If k<>i Then
   Begin
     Temp[k]:=Temp[i];
     Temp[i]:=d
   End
 End;
 Move(an,a,SizeOf(TMatrix5));  {или Move(a,an,SizeOf(TMatrix5)) - посмотри по
                                               Help, я не помню. Чтобы a скопировалось в an}
 n:=1;
 For i:=1 To 4 Do
   For j:=i+1 To 5 Do
   Begin
     an[i,j]:=Temp[n];
     Inc(n)
   End;
{.....}
End.