Компоненты вектора X - среднее геометрические значения i-х столбцов матрицы, если количество положительных и отрицательных элементов в каждом столбце

Program Generalna; 
        uses Crt; 
        Const Len=100;
       Type
    mtr= array [1..Len,1..Len] of real; 
               mas= array [1..Len] of real; 
               var i,j, m,n:integer; 
  k:byte; 
            a:mtr; 
            x:mas; 
           c:real; 
          u: real;
  BEGIN
                 ClrScr;
    writeln ('Введите размерность матрицы  A: числа M и N' );
                 write('m=');
                 read (m);
                 write('n=');
                 read(n);
                 writeln (' Введите  элементы a[i,j] матрицы А ');
                 for i:=1 to m do
                            for j:=1 to n do
               a[i,j]:=((i*i*i)*((exp(i*ln(2))*(i-2.5)+1.3)*Sin(((exp(i*ln(2))*((j-2.5)+1.3))))));
   ClrScr;
                 write (' Выведите  элементы a[i,j] матрицы А ');
                 writeln;
                 writeln;
{Вывод матрицы А по строкам}
                          for i:=1 to m do
                           begin
                             for j:=1 to n do
                                write ('a[',i,',',j,']=', a[i,j]:10:7,' '); 
                            writeln; 
                         end;
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
{ Вывод массива Х}
                                writeln('             Maссив X');
                                 writeln;
                              for i:=1 to k-1 do
write ('x[',i,']=', x[i]:10:7,' '); 
                  U:=1; 
                               for i:=1 to k-1 do
                               U:=U*(x[i]+x[k-i]); 
                               writeln;
                               writeln;
                               write (' Функция: u=',u:10:7); 
               Repeat Until KeyPressed
 END.