Найти минимальные элементы каждой строки матрицы

uses crt;
const nmax=20;
var a: array [1..nmax,1..nmax] of integer;
    b: array [1..nmax] of integer;
    i,j,n,m,jmin: integer;
begin
repeat
write('Kol-vo strok, ne bolee ',nmax,', n=');
readln(n);
until n in [1..nmax];
repeat
write('Kol-vo stolbzov, ne bolee ',nmax,', m=');
readln(m);
until m in [1..nmax];
writeln('Dana matriza');
for i:=1 to n do
    begin
    jmin:=1;
    for j:=1 to m do
        begin
        a[i,j]:=random(199)-99;
        write(a[i,j]:4);
        if a[i,j]<a[i,jmin]
           then jmin:=j;
        end;
    b[i]:=a[i,jmin];
    writeln;
    end;
writeln('Naim.znachenija strok');
for i:=1 to n do
    write(b[i]:4);
end.

uses crt;
const nmax=20;
var a: array [1..nmax,1..nmax] of integer;
    b: array [1..nmax] of integer;
    i,j,e,n,jmin: byte;
    buf: integer;
begin
repeat
write('Razmernostb, ne bolee ',nmax,', n=');
readln(n);
until n in [1..nmax];
writeln('Vvedite elementy matrizy');
for i:=1 to n do
    for j:=1 to n do
        begin
        write('a[',i,',',j,']=');
        readln(a[i,j]);
        end;
writeln('Dana matriza');
for i:=1 to n do
    begin
    jmin:=1;
    for j:=1 to n do
        begin
        write(a[i,j]:4);
        if a[i,j]<a[i,jmin]
           then jmin:=j;
        end;
    b[i]:=a[i,jmin];
    writeln;
    end;
writeln('Naim.znachenija strok');
for i:=1 to n do
    write(b[i]:4);
writeln;
e:=0;
while e<=n do
      begin
      for i:=1 to n-1 do
          if b[i]>b[i+1] then
             begin
             buf:=b[i];
             b[i]:=b[i+1];
             b[i+1]:=buf;
             for j:=1 to n do
                 begin
                 buf:=a[i,j];
                 a[i,j]:=a[i+1,j];
                 a[i+1,j]:=buf;
                 end;
             end;
      inc(e);
      end;
writeln('Sortirovannaya matriza');
for i:=1 to n do
    begin
    for j:=1 to n do
        write(a[i,j]:4);
    writeln;
    end;
writeln('Naim.znachenija strok');
for i:=1 to n do
    write(b[i]:4);
readln;
end.