Найдите сумму всех положительных элементов матрицы. на паскале

program zz1;

const n=3; / /задаем размер матрицы

var matr:array[1 ... n, 1 ... n] of integer;

i, j, s:integer;

begin

for i:=1 to n do / /заполняем матрицу случайными числами от - 10 до 10

for j:=1 to n do

matr[i, j]:=random (21) - 10;

for i:=1 to n do / /выводим матрицу на экран

begin

for j:=1 to n do

write (matr[i, j]:5);

writeln;

end;

for i:=1 to n do

for j:=1 to n do

if matr[i, j]>0 then s:=s+matr[i, j]; / /проверяем, если элемент матрицы положительный, то прибавляем его к сумме

write ('сумма положительных элементов матрицы = ', s); / /выводим ответ

end.