Напишите программу, которая вычислит сумму элементов двумерного массива)) спасибо заранее

Const N = 5; Var m:array [1..N, 1..N] of integer; j,S,i:integer; Begin S:=0;  for i:=1 to N do  for j:=1 to N do begin  readln(m[i,j]); S:=S+m[i,j]; end;  writeln(S); readln; end.