Составить программу. Дан массив n*m. Определить сумму положительных элементов

Vara: array [1… 100,1… 100] of longint; i,j,k,n,m: longint; 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 if a[i,j]>0 then inc (k,a[i,j]); writeln (k); end.