Вычислить элементы матрицы X по формуле x(i;j)=(i+j)^3+3ij* cos i, Где i=1,2….5; J=1,2….8. Найти среднеарифметическое положительных элементов каждого столба матрицы — Pascal(Паскаль)

const n=5;
      k=8;
var i,j,polozh: byte;
    x:array [1..n,1..k] of double;
    result:array [1..n] of double;
Begin
for i:=1 to n do
    Begin
    polozh:=0;
    for j:=1 to k do
        Begin
        x[i,j]:=(i+j)*(i+j)*(i+j)+3*i*j*cos(i);
        if x[i,j]>0 then
           Begin
           inc(polozh);
           result[i]:=result[i]+x[i,j];
           End;
        End;
        result[i]:=result[i]/polozh;
    End;
for i:=1 to n do
    writeln(result[i]:6:4);
End.