Универсальная процедура для перестановки значений двух элементов матрицы

procedure SwapEx(var x,y:extended);     
                ex:extended;
        begin
        ex := x;
        x := y;
        y := ex
        end;
    procedure SwapIn(var x,y:integer);      
                var b:integer;
        begin
        b := x;
        x := y;
        y := b
        end;        
    procedure SwapStr(var x,y:string);      
        var s:string;
        begin
        s := x;
        x := y;
        y := s
        end;

type matr=array[1..20,1..20] of integer;
procedure SwapEx(var a:matr;i1,j1,i2,j2:byte);             
var  ex:extended;
  begin
    ex :=a[i1,j1];
    a[i1,j1]:=a[i2,j2];
    a[i2,j2]:=ex;
  end;
end;

Procedure Sort_diag;
        begin   
            for j:=1 to 9 do
                for i:=1 to 10-j do             
                if m[i].diagonal > m[i+1].diagonal then                 
                    begin
                    SwapBr(m[i].brand,m[i+1].brand);
                    SwapMo(m[i].model,m[i+1].model);
                    SwapIn(m[i].diagonal,m[i+1].diagonal);
                    SwapCh(m[i].colour,m[i+1].colour);
                    SwapBn(m[i].wide,m[i+1].wide);
                    SwapEx(m[i].cost,m[i+1].cost);
                    SwapStr(m[i].note,m[i+1].note);
                    end;
        end;

procedure SwapEx(var x,y:extended);     
        begin
        ex := x;
        x := y;
        y := ex
        end;
    procedure SwapIn(var x,y:integer);      
        begin
        b := x;
        x := y;
        y := b
        end;        
    procedure SwapStr(var x,y:string);              
        begin
        s := x;
        x := y;
        y := s
        end;
    procedure SwapCh(var x,y:char);             
        begin
        ch := x;
        x := y;
        y := ch
        end;        
    procedure SwapBr(var x,y:br);
        var r:br;
        begin
        r := x;
        x := y;
        y := r
        end;
            
    procedure SwapMo(var x,y:mo);
        var m:mo;
        begin
        m := x;
        x := y;
        y := m
        end;
    procedure SwapBn(var x,y:boolean);      
        begin
        yn := x;
        x := y;
        y := yn
        end;