Сформировать компоненты вектора Х и вычислить функцию U

[KnoWabLe]

Компоненты вектора X - минимальные элементы i-х столбцов.

За U взять сумму тех элементов вектора X, которые не являются наибольшим и наименьшим элементами вектора.

program abc;
 uses crt;
 const Len=20;
 var m,n,i,j,l,k,b,g: integer;
     c,min,dob,u,max,sum,x: real;
     a:array[1..Len,1..Len] of real;
     vect:array[1..Len] of real;

BEGIN
  write('m='); read(m);
  write('n='); read(n);
  for i := 1 to m do
    for j := 1 to n do
      {(2 - (j - 5)2 )j -3 ( i - |j-7|4 ) (i +7,6) ln(|tg(i/2)|)}
      a[i, j] :=
      (2-sqr(j-5))
      *(1/(j*j*j))
      *(i - sqr(sqr(j-7)))
      *(i+7.6)
      *(ln(ABS(sin(i / 2) / cos(i / 2))));
  ClrScr;
  


  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;

  for j:=1 to n do
  begin
   x:=a[i,j];
   for i:=1 to m do
    if a[i,j] < x then
      x:=a[i,j];
      writeln('x[',j,']',' - ', x:10:3);
   end;
     
END.

У меня получилось вывести двухмернный массив и найти компоненты Х, но у меня не выходит найти сумму (функцию U), исключаю наибольший и наименьший элементы вектора Х. Я понимаю что дело в одномерном массиве и понимаю что его можно найти следующим образом:

sum: real;
min, max: real;
i: byte;

sum := min := max := vect[1];
for i := 2 to n do begin
 sum := sum + vect[i];
 if vect[i] > max then max := vect[i]
 else if vect[i] < min than min := vect[i];
end;

Но не могу правильно сформировать компоненты Х не используй двухмерный массив, заранее БЛАГОДАРЮ за помощь.