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

{В каждой строке найти MIN. }
const
  nmax=100;
type
  mat=array[1..nmax,1..nmax] of integer;
var
  a:mat;
  i,j,n,m,min:integer;
begin
repeat
write('Kol-vo stork = ');
readln(n);
write('Kol-vo stolbcov = ');
readln(m);
until (n in [1..nmax] ) and (m in [1..nmax]);
randomize;
  for i:=1 to n do
    begin
    for j:=1 to m do
      begin
        a[i,j]:=random(30);
      write(a[i,j]:4);
      end;
    writeln;
    end;
  for i:=1 to n do
    begin
    min:=a[i,1];
    for j:=2 to m do
      begin
      if a[i,j]<min then
       min:=a[i,j];
      end;  
    writeln('Minimalniy element ',i,' stroki-> ',min:4);       
    end;
end.

uses crt;
const nmax=20;
var a: array [1..nmax,1..nmax] of integer;
    n,m,i,j,jmin: byte;
begin
repeat
write('Количество строк, не более ',nmax,', n='); readln(n);
until n in [1..nmax];
repeat
write('Количество столбцов, не более ',nmax,', m='); readln(m);
until m in [1..nmax];
write('Дана матрица');
for i:=1 to (m*4-10) do
    write(' ');
writeln('Мин. в строке');
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;
    writeln(a[i,jmin]:10);
    end;
readln;
end.