двумерные массивы delphi

[santiklemon]

даны два двумерных массива А(4х3) и В(7х5)

написать процедуру,которая упорядочивает по убыванию четные столбцы матриц
написать функцию,которая вычисляет сумму индексов максимального элемента матриц

[Hacker19_90]

procedure GetSumIndex (mas: array of integer; const rows, cols: integer): integer;
var
    i, j: integer;
    max: integer;
begin
    Result := 0;
    max := mas[1,1];
    for i := 1 to rows do
        for j := 1 to cols do
        if max < mas[i,j] then
        begin
            max := mas[i,j];
            Result := i+j
        end;
end;

procedure Sort (var mas: array of integer; const rows, cols: integer);
var
    i, j: integer;
    flag: boolean;
begin
    for j := 1 to cols do
    repeat
        flag := false;
        for i := 1 to rows - 1 do
           if mas[i,j] < mas[i+1,j] then
           begin
                flag := true;
                mas[i,j] := mas[i,j] + mas[i+1,j];
                mas[i+1,j] := mas[i,j] - mas[i+1,j];
                mas[i,j] := mas[i,j] - mas[i+1,j];
           end;
    until flag = false;
end;