Работа с матрицами

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
var a:array[1..20,1..20] of integer;
    b, c:array[1..20] of integer;
    i,j,l,n,h,m,min,imin:integer;
begin
Randomize;
Write('n=');
Readln(n);
Write('m=');
Readln(m);
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=random(20)-10;
    Write(a[i,j]:4);
   end;
  Writeln;
 end;
 
 
Writeln;
b[i]:=0;
for j:=1 to m do
 for i:=1 to n do
   b[j]:=b[j]+abs(a[i,j]);
min:=b[1];
 for i:=1 to m do
  if b[i]<=min then
   begin
    min:=b[i];
    imin:=i;
   end;
 
 
   writeln;
for i:=1 to n do
 begin
  c[i]:=1;
  for j:=1 to m do
     c[i]:=c[i]*abs(a[i,j]);
     end;
{помоему он должен быть тут}
 
 
writeln('Proizvedenie v strokah:');
for j:=1 to n do
 Write(c[j]:8);
Writeln;
Writeln('[',l,']');
Writeln('Summa v stolbcah');
for i:=1 to m do
 Write(b[i]:4);
Writeln;
Writeln('[',imin,']');
Readln;
end.

program matrix666;
 
{$APPTYPE CONSOLE}
 
var
  a: Array[1..20, 1..20] of Integer;
  i, j, m, n, min1, min2: Integer;
  buff, buff2: Int64;
 
begin
  Randomize;
  WriteLn('Write matrix size (m and n)');
  ReadLn(m, n);
  // заполняем матрицу случайными значениями:
  for i := 1 to m do
    begin
      for j := 1 to n do
        begin
          a[i, j] := Random(21) - 10;
          Write(a[i, j]:3, ' ');
        end;
      WriteLn;
    end;
  // инициализируем индексы
  min1 := 0;
  min2 := 0;
  // высчитываем сумму модулей элементов столбцов
  buff2 := high(Int64) - 1;
  for j := 1 to n do
    begin
      buff := 1;
      for i := 1 to m do
        buff := buff + Abs(a[i, j]);
      If buff2 > buff then
        begin
          buff2 := buff;
          min1 := j;
        end;
    end;
  // вычисляем модуль произведений
  buff2 := high(Int64) - 1;
  for i := 1 to m do
    begin
      buff := 0;
      for j := 1 to n do
        buff := buff * a[i, j];
      buff := abs(buff);
      If buff2 > buff then
        begin
          buff2 := buff;
          min2 := i;
        end;
    end;
  // выводим результаты
  WriteLn('min ColIndex = ', min1);
  WriteLn('min RowIndex = ', min2);
  ReadLn;
end.