Как найти сумму чисел двумерного массива вводимого с клавиатуры

В двух вложенных циклах последовательно перебирая каждый элемент добавлять к сумме, перед циклами надо обнулить переменную в которую будешь писать сумму.  ввод массива тоже в двух циклах.
s:=0;
For i:=1 to N do
 for j:=1 to N do begin
 readln(a[i,j]);
 s:=s+a[i,j]
 end;
 writeln(s);