Наименьший по абсолютной величине элемент строки матрицы

program tmp;
uses crt;
const count=50;
var
   mas:array[1..count,1..count] of integer;
   vec:array[1..count] of integer;
   i,j,n:integer;
begin
clrscr;
randomize;
write('vvedite n: ');readln(n);
writeln;
writeln('Ishodnaya matrica A:');
for i:=1 to n do begin
                 for j:=1 to n do begin
                                  mas[i,j]:=random(101)-50;
                                  write(mas[i,j]:4);
                                  end;
                 writeln;
                 end;
writeln;
for i:=1 to n do begin
                 vec[i]:=mas[i,1];
                 for j:=1 to n do if abs(mas[i,j])<abs(vec[i]) then vec[i]:=mas[i,j];
                 end;
writeln('poluchennii vector:');
for i:=1 to n do write(vec[i]:4);
readkey;
end.

program vector;
 var
  a:array[1..100,1..100] of integer;
  b:array[1..100] of integer;
  i,j,m,n,p,min:integer;
  
  
  
  begin
  writeln('введите размерность матрицы');
  readln(n,m);
  for i:=1 to n do begin
   for j:=1 to m do
    a[i,j]:=random(10);
    end;
   writeln('исходная матрица');
   for i:=1 to n do begin
    for j:=1 to m do
     write(a[i,j],' ');
     writeln;
     end;
     p:=n;
  
  for i:=1 to n do 
   begin
    min:=a[1,j];
    for j:=1 to m do 
     if a[i,j]<min then
      min:=a[i,j];
      b[i]:=min;
   end;
   
 writeln('вектор');
for i:=1 to p do begin
 write(b[i],' ');
 end;
 end.

program vector;
 var
  a:array[1..100,1..100] of integer;
  b:array[1..100] of integer;
  i,j,m,n,p:integer;
  
  
  
  begin
  writeln('введите размерность матрицы');
  readln(n,m);
  for i:=1 to n do begin
   for j:=1 to m do
    a[i,j]:=random(10)-10;
    end;
   writeln('исходная матрица');
   for i:=1 to n do begin
    for j:=1 to m do
     write(a[i,j],' ');
     writeln;
     end;
     p:=n;
  
  for i:=1 to n do 
   begin
    b[i]:=a[i,1];
   for j:=1 to n do 
   if abs(a[i,j])<abs(b[i])
    then b[i]:=a[i,j];
    end;
   
  writeln('вектор');
for i:=1 to p do begin
 write(b[i],' ');
 end;
 end.