В каждой строке матрицы выбрать элемент с наименьшим значением

var mas:array [1..100,1..100] of Integer;
    x:array [1..100] of Integer;
    i,j,m,n,min,max:integer;
begin
  Write('Enter - = ');Readln(n);
  Write('Enter | = ');Readln(m);
  Writeln(' Array ');
  for i:=1 to n do
    begin
      for j:=1 to m do
        begin
          mas[i,j]:=random(50)-25;
          write(mas[i,j],' ');
        end;
      writeln;
    end;
    Writeln('Array min');
  for i:=1 to n do
    begin
      x[i]:=mas[i,1];
      for j:=1 to m do
         begin
           if (x[i]>mas[i,j]) then x[i]:=mas[i,j];
         end;
    write(x[i],' ');
    end;
   writeln;
   max:=x[1];
   for i:=1 to n do
    begin
      if (max<x[i]) then max:=x[i];
    end;
  
   Write('MAX = ',max);
Readln;
end.

const n = 5;
      m = 4;
 
var a: array [1..n, 1..m] of real;
    i, j, imin, imax, jmax: integer;
 
begin
  randomize;
  jmax := 1;
  writeln('Source array:');
  for j := 1 to n do
    begin
      imin := 1;
      for i := 1 to m do
        begin
          a[i, j] := random * 198 - 99;
          if a[i, j] < a[imin, j] then imin := i;
          write(a[i, j]:9:3)
        end;
      if j = 1 then imax := imin;
      if a[imin, j] > a[imax, jmax]
        then begin
          imax := imin;
          jmax := j
        end;
      writeln
    end;
  writeln('column = ', imax, ',  row = ', jmax);
  readln
end.