Дана матрица размерностью n*m. найти в каждой строке max и min элемент

Если нужна матрица другого размера, то надо исправить значения n=5; m=6 на нужные.

const
  n=5;
  m=6;
var
  a:array[1..n,1..m] of integer;
  i,j,min,max:integer;
begin 
for i:=1 to n do
    begin
      for j:=1 to m do
        begin
          a[i,j]:=random(20);
          write(a[i,j]:4);
          if j=1 then
            begin
              min:=a[i,1];
              max:=a[i,1];
            end
            else
              begin
                if a[i,j]<min then min:=a[i,j];
                if a[i,j]>max then max:=a[i,j];
              end;
        end;
       writeln('; min=',min,'; max=',max);
    end;
end.