Помогите решить задачу в Паскале Дан двумерный массив. Найти сумму и количество положительных элементов, лежащих выше главной диагонали.

var a: array [1..100,1..100] of integer; i,j,s,sn,n,m:integer; Begin     read(n,m);     for i:= 1 to n do         for j:= 1 to m do begin             read(a[i,j]);             if (j>i) and (a[i,j]>0) then begin                 sn:=sn+1;                 s:=s+a[i,j];             end;         end;     writeln(s,sn); End.