найти сумму положительных элементов матрицы D(4,5) - Abc Pascal

[Max_06]

найти сумму положительных элементов матрицы D(4,5)
Abc Pascal!!! нужно создать программу!!! пожалуйста!!!

[newerow1989]

var d:array[1..4,1..5] of integer;
    i,j,s:integer;
begin
   Randomize;
   For i:=1 to 4 do
   begin
      For j:=1 to 5 do
      begin
         d[i,j]:=-10+Random(15);
         Write(d[i,j],'  ');
      end;
      Writeln;
   end;
   Writeln;
   s:=0;
   For i:=1 to 4 do
      For j:=1 to 5 do
         If d[i,j]>0 then
            s:=s+d[i,j];
   Writeln(s);
   Readln;
end.