program arraysum;

var tosum: array [1...100,1..100] of Integer; //Как вариант, - array [] of 0..9;

      actualwidth,actualheight,resultwidth,cnt,carry: Integer;

      aresult: array [1..100] of Integer;

      go_on:boolean;

begin

//читаем исходный массив.

for i := 1 to actualwidth do

begin

     aresult := 0; //ВАЖНО! В Паскале нет автоинициализации!

     for j := 1 to actualheight do

     begin

       aresult[i]:=aresult[i]+tosum[i,j];

     end;

  end;

  go_on:=true;// или наоборот?

  cnt:=1;

  carry:=0;

  while go_on do

  begin

      aresult[cnt]:=aresult[cnt]+carry;

      carry:=aresult[cnt] div 10;

      aresult[cnt]:=aresult[cnt] mod 10;

      cnt:=cnt+1;

      go_on:=NOT (carry=0 AND aresult[cnt]=0);//Тьху, надо  NOT исправил.

  end;

  resultwidth:=cnt-1;//

  //выводим результатъ

end.