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

Решение смотри во вложении

constn=4;m=4;var sum,i,j:integer;mass:array[1..n , 1..m] of integer;beginwriteln('Введите числа');for i:=1 to n dobeginfor j:=1 to m dobeginmass[i,j]:=random(60)-20;write('mass[',i,',',j,']= ',mass[i,j]);writeln;end;end;for j:=1 to m doif (mass[3,j]>0) then sum:=sum+mass[3,j];writeln('Сумма третьего столбца равна ',sum);end.