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

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]gt;0 then s:=s+matr[i,j]; //проверяем, если элемент матрицы положительный, то добавляем его к сумме
write(сумма положительных частей матрицы = ,s); //выводим ответ
end.