Двумерный массив

[689jj]

Всем привет, помогите решить задачку.
Само задание: для произвольного двумерного массива найти столбец с наименьшей суммой элементов и записать его в виде одномерного массива.

[Artsiom]

Ну, давайте подумаем.
Для начала на каком языке?

var
 min, byfmin : real;
 i, j, m, n, indmin, indbyf: integer;
 a : array of array of real;
 b : array of real;

begin
 write('n=');
 readln(n);
 write('m=');
 readln(m);

 SetLength(a, n, m);
 SetLength(b, n);

 for I := 0 to n-1 do
 for j := 0 to m-1 do
  a[i,j] := Random(300);

 for I := 0 to n-1 do
 begin
  for j := 0 to m-1 do
   write('a[',i,',',j,']=', a[i,j]:2:0, ';  ');
  writeln('');
 end;

 byfmin := 0;
 indbyf := 0;
 for I := 0 to n-1 do
  byfmin := byfmin + a[i,0];

 for j := 1 to m-1 do
 begin
  min := 0;
  for I := 0 to n-1 do
  begin
   min := min + a[i,j];
   indmin := j;
  end;

  if min<byfmin then
  begin
   byfmin := min;
   indbyf := indmin;
  end;
 end;

 for I := 0 to n-1 do
 begin
  b[i] := a[i,indbyf];
  Writeln('b[',i,']=', b[i]:2:0);
 end;
 readln;
end.

Блин, а почему randomize не работает? Постоянно что-то про ошибку пишет. В SysUtils присутствует, а работать отказывается...