Задан двухмерный массив а=(а i,j),нужно найти номер строки сумма элементов в которой является наибольшей.

Var a:array[1..100,1..100] of integer;sum,i,j,index,tmp:integer;
beginrandomize;sum:=-1;for i:=1 to 10 dobegin  tmp:=0;  for j:=1 to 10 do  begin    a[i,j]:=random(10);    tmp:= tmp + a[i,j];    write(a[i,j],' ');  end;  if ( sum < tmp ) then  begin    sum:=tmp;    index:=i;  end;  write(' SUM [',tmp,']');  writeln;end;  writeln(index);
end.