program l43;
{$APPTYPE CONSOLE}
uses SysUtils, math;
var
a:array[1..10,1..12] of integer;
i,j,s,ss:integer;
begin
randomize;
for i:=1 to 10 do for j:=1 to 12 do a[i,j]:=random(10);

for i:=1 to 10 do begin
writeln;
writeln('------------------------------------');
s:=0; ss:=0;
for j:=2 to 12 do ss:=ss+a[i,j];

 for j:=1 to 12 do begin write(a[i,j]);{if a[i,j]<10 then write(' ');}write(' '); end;
 write('|  Elements:');
 if s>ss then begin write(' ');write(j) end;
 for j:=2 to 12 do begin
  s:=s+a[i,j]; ss:=ss-a[i,j];
  if s>ss then begin write(' ');write(j) end;
 end;
end;
writeln;
writeln('------------------------------------');

readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.