Найти минимальные элементы в каждой строке матрицы - Pascal - Ответ 6208911

uses
  Crt;
  
type
  mass = array of array of ShortInt;
  vector = array of ShortInt;
  
var
  n : Byte;
  meth : Boolean;
  ar : mass;
  minVector : vector;
  
procedure fillArray(n : Byte; meth : Boolean; var ar : mass);
var
  i, j : Byte;
begin
  SetLength(ar, n);
  for i := 0 to (n - 1) do
    SetLength(ar[i], n);
  if (meth) then
    for i := 0 to (n - 1) do
      for j := 0 to (n - 1) do
      begin
        Write('X[', i+1, '][', j+1, ']=');
        ReadLn(ar[i, j]);
      end
  else
    for i := 0 to (n - 1) do
      for j := 0 to (n - 1) do
        ar[i, j] := Random(201) - 100;
  ClrScr;
  for i := 0 to (n - 1) do
  begin
    for j := 0 to (n - 1) do
      Write(#9, ar[i, j]);
    WriteLn;
  end;  
end;
  
procedure findMin(ar : mass; var vec : vector);
var
  i, j, n : Byte;
begin
  n := Length(ar); SetLength(vec, n); Write('Min ');
  for i := 0 to (n - 1) do
  begin
    vec[i] := 127;
    for j := 0 to (n - 1) do
      if (vec[i] > ar[i, j]) then
        vec[i] := ar[i, j];
      Write(#9, vec[i]);
  end;
end;
  
function MaxOfMin(vec : vector) : ShortInt;
var
  i : Byte;
  ans : ShortInt;
begin
  ans := -128;
  for i := 0 to (Length(vec) - 1) do
    if (ans < vec[i]) then
      ans := vec[i];
  MaxOfMin := ans;
end;
 
begin
  Randomize;
  n := 0;
  while not(n in [1..10]) do
  begin
    Write('Input n=');
    ReadLn(n);
  end;
  ClrScr;
  Write('Input method (FALSE random | TRUE handle) ='); ReadLn(meth);
  fillArray(n, meth, ar);
  WriteLn;
  findMin(ar, minVector);
  WriteLn;
  WriteLn('MaxOfMin=', MaxOfMin(minVector));
  ReadLn;
end.