Составить программу вычисления суммы элементов, двумерного массива размерностью 9*9?

Const n = 9 ;
var a : array [ 1 . . . n , 1 . . . n ] of integer;
i , j , s : integer;
begin
randomize;
s : = 0 ;
for i : = 1 to n do
for j : = 1 to n do
begin
a [ i , j ] : = random ( 10 ) ;
s : = s + a [ i , j ] ;
end;
write ( Summa = , s ) ;
readln;
end.