Матрица с минимальной строкой (считовать с файла) Опции

[REC0N]

Данная матрица M x N, вывести строку (строки) с минимальным значением матрицы.Матрицу считовать с файла.
Основна проблема в том что неумею считовать с файла,тему ище непроходили так что идей нет.Помогите.А так то вся прога готова

program matryca;
  uses crt;

  const
  nmax = 100;

  Var matr: array [1 .. nmax, 1 .. nmax] of integer;
      vec: array [1 .. nmax] of integer;
      m, n, i, j, rad, mini, minj: integer;

  Begin
        repeat
        write ('Введите количество столбцов матрицы:');
        read (m);
        write ('Введите количество строк матрицы:');
        read (n);
        if (m <= 0) and (n <= 0) then writeln ('Некорректное ввод данных');
        until (n> 0) and (m> 0);

          // Ввод матрицы

        for i:= 1 to n do
            for j:= 1 to m do begin

            write ('Введите элемент матрицы A (', i ,';', j ,'):');
            read (matr [i, j]);
            end;

       // Вывод матрицы

        for i:= 1 to n do begin

        write ('(', i, ' строка) ');

            for j:= 1 to m do
           write (matr [i, j], '');
            writeln

            end;

    // Вычисление минимального элемента матрицы
mini:=1; minj:=1;
for i:= 1 to n do
  for j:= 1 to m do begin
    if matr [i, j] < matr [mini, minj] then begin // Ищем минимальный элемент матрицы
      mini:=i; minj:=j;
    end;
  end;

writeln;
write ('Минимальный элемент матрицы:');
write (matr [mini, minj]);

writeln ('===============================');
writeln;
writeln ('Строки с минимальным элементом:');
for i:= 1 to n do
  for j := 1 to m do
    if matr[i, j] = matr[mini, minj] then begin
      writeln(i); break; // Завершаем цикл, чтоб не печатать один номер строки несколько раз
    end;
end.