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

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