Найти сумму всех элементов расположенных выше главной диагонали

Program gogo; uses crt; const n=10; var a: array[1… n,1… n] of real; sm: real; i,j: byte; beginclrscr; for i: =1 to n do begin for j: =1 to n dobegin write ('vvedite ',i,'.',j,' cifru '); readln (a[i,j]); end; end; sm: =0; for i: =1 to n do begin for j: =1 to n do begin if j>i then sm: =sm+abs (a[i,j]); end; writeln; end; write ('Summa=',sm: 0:3); readlnend.