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

Дмитрий

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.