Море это объект предмет или объект явление ? нужно умоляю

Море - это объект явление

Var a: array[,] of real;     b: array of real;     i,j,ind,n,m: integer;     p,s: real; begin   write('размерность массива:   n m   ');   readln(n,m);   writeln('массив: ');   setlength(a,n+1,m+1);   setlength(b,n+1);   randomize;   for i: =1 to n do   begin       p: =1; s: =0;       for j: =1 to m do       begin         a[i,j]: =random(-50,50)/100;         write(a[i,j]: 6: 2);         if a[i,j]< 0 then         begin           p: =p*a[i,j];           s: =1;         end;         end;         if s> 0 then b[i]: =p       else b[i]: =0;       writeln;   end;   s: =b[1]; ind: =1;   writeln('новый массив: ');   for i: =1 to n do    begin     write(b[i]: 8: 4);     if b[i]< s then     begin       ind: =i; s: =b[i];     end;     end;   writeln;   writeln('индекс минимального элемента в новом массиве:   ',ind); end.размерность массива:   n m   4 3 массив:   -0.04   0.21   0.14   0.00 -0.38 -0.05   -0.29   0.12   0.12   0.15 -0.16   0.37 новый массив:   -0.0400   0.0190 -0.2900 -0.1600 индекс минимального элемента в новом массиве:   3