Дан двумерный массив, размер 6 х7. Определить, сумма каких элементов больше - 2-го столбца или 3-ей строки?

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.