Обработать исходный массив данных A[M,N],
считанный из внешнего текстового файла

Сформировать вектор Y[M] из минимальных
элементов каждой строки матрицы A[M, N].
Найти произведение элементов этого вектора
Результаты счета вывести на экран
и во внешний текстовый файл (файл-документ).

Const
  m = 5;
  n = 3;
Var
  f: Text;
  mult, i, j: Integer;
  matrix: Array[1 .. n, 1 .. m] Of Integer;
  Y: Array[1 .. m] Of Integer;

Begin
  Assign(f, 'DATA.TXT');
  {$I-}
    Reset(f);
  {$I+}
  If IOResult <> 0 Then
    Begin
      WriteLn('Error opening file');
      Exit
    End;

  mult := 1;
  For i := 1 To n Do {lines}
    Begin
      Y[i] := maxInt;
      For j := 1 To m Do {columns}
        Begin
          Read(f, matrix[i, j]);
          If matrix[i, j] < Y[i] Then
            Y[i] := matrix[i, j];
        End;
      mult := mult * Y[i];
    End;

  WriteLn( 'The result value is: ', mult );
  Close(f);
  Append(f);
  WriteLn( f, 'The result value is: ', mult );
  Close(f)
End.

Тестировалось:
5 2 3 4 5
7 3 4 5 6
9 4 5 6 7

Я вывел результат в тот же файл, откуда считывал исходные данные.
Что не понятно - спрашивай...
:yes:

Тенькс БАЛьшой!!!
Ой а это что ???
Y[i] := maxInt;

Y[i] := matrix[i, j];
End; {кажется он должен быть под следующей строчкой}
mult := mult * Y[i];

Y[i] := maxInt;

Элементу Y[i] присвоить максимально большое значение