Var  
    a : array [1..6, 1..7] of Integer;  
    i, e, col, row : Integer;
begin

    for i := 1 to 6 do
        for e := 1 to 7 do
            a[i, e] := Random(100);

    for i := 1 to 7 do col := col + a[2, i];
    for i := 1 to 6 do row := row + a[i, 3];

    if col > row then Writeln('2-го столбца');
    if col < row then Writeln('3-ей строки');
    if col = row then Writeln('равны');

    Readln;
end.