delphi. Работа с массивами

[Buka18]

Дана вещественная матрица разрером n*m,все элементы которой различны.построить массив В ,каждый элемент которого содержит наименьший по абсолютной велечине элемент строки матрицы А
за ранее благодарна

[ОДИНОЧЕСТВО В СЕТИ]

type matrix= array[1..100,1..100] of Integer;
type vector = array[1..100] of Integer;
const n=5;
      m=5;
var
  i,j:Integer;
  a:matrix ;
  b:vector;
begin
  Randomize;
  for i:=1 to n do
  for j:=1 to m do
    a[i,j]:=Random(n*m)-15;

  Writeln(' ___________________');
  Writeln('|                   |');
  Writeln('|     Matrix A      |');
  Writeln('|___________________|');
  for i:=1 to n do begin
    write('| ');
    for j:=1 to m do
      write(a[i,j]:3);
    write('   |');
    Writeln;
  end;
  Writeln('|___________________|');
 for i:=1 to n do
 begin
 b[i]:=a[i,1];
 for j:=2 to m do
 if abs(a[i,j])<abs(b[i]) then b[i]:=a[i,j];
 end; 
  Writeln(' ___________________');
  Writeln('|                   |');
  Writeln('|     Vector B      |');
  Writeln('|___________________|');
  for i:=1 to m do
  write(b[i]:3);
  Readln;
end.