Найти сумму элементов в двумерном массиве

vari,j,n,m,sum:integer;a:array[1..1000, 1..1000] of integer;beginReadln(n,m);for i:= 1 to n do  for j:= 1 to m do    Read(a[i,j]);for i:= 1 to n do  for j:= 1 to m do    sum:= sum+a[i,j];Writeln(sum);end.