Найти элемент, который больше, чем сумма остальных элементов этого столбца

[Ilya Petrov]

Здравствуйте, натолкните на необходимое условие выборки нужного элемента. Вот что имею:

program project1;
uses
  SysUtils, crt;
const
  m = 12; n = 6;
type
    massiv = array [1..m, 1..n] of integer;
var
    mass : massiv;
    summa , raz , raz1 , x ,  i , j : integer;
    s:string;
begin
  clrscr;
  randomize;
  summa := 0;
  for i:=1 to m do
      for j:=1 to n do
  if i=j then begin
  mass[i+random(3)+1,j+random(3)+1]:=random(500)+random(200);
    end
     else
          mass[i,j] := random(50);
  for i:=1 to m do
    begin
        for j:=1 to n do
            begin
                write(mass[i,j]:2, '  |  ');
            end;
        writeln;
    end;
   writeln(inttostr(x));
        readln;

end.