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 := actualwidth downto 1 do
begin
aresult[i] := 0; //ВАЖНО! В Паскале нет автоинициализации!
for j := 1 to actualheight do
begin
aresult[i]:=aresult[i]+tosum[i,j];
end;
end;
go_on:=true;// или наоборот?
cnt:=actualwidth; //actualwidth и actualheight одинаковые, поэтому безразници
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.