Задача с матрицей.

[waxwing]

Условие задачи такое:
В данной действительной квадратной матрице порядка n найти наибольший по модулю элемент. Получить квадратную матрицу порядка n-1 путем отбрасывания из исходной матрицы строки и столбца, на пересечении которых расположен элемент с найденным значением.
Программу нужно представить в таком виде, чтобы она данные матрицы брала из файлов(их у нас несколько, к примеру 2 или 3) в начале работы она спрашивает "из какого файла берем данные?", после мы пишем имя файла и она начинает работать.
Нахождение наибольшего по модулю элемента нужно сделать с помощью подпрограммы функции, а отбрасывание строки и столбца с помощью процедуры. Спасибо за помощь!!!

[BDA]

Что Вы уже сделали в направлении решения задачи?
Какие-либо наработки?

[waxwing]

Есть текст программы. Общий. Но здесь ввод массива с клавиатуры, а не из файла. Не понимаю, как сделать так чтобы программа брала данные из файла...
var
i, j, n, m_i, m_j, maxmod: integer;
matrix: array[1..50,1..50] of integer;
begin
writeln('Введите размер матрицы:');
readln(n);
for i:=1 to n do
for j:=1 to n do matrix[i,j]:=-100+random(200);
maxmod:=abs(matrix[1,1]);
m_i:=1;
m_j:=1;
for i:=1 to n do
for j:=1 to n do
if abs(matrix[i,j])>maxmod then
begin
maxmod:=abs(matrix[i,j]);
m_i:=i; m_j:=j;
end;

writeln('Исходная матрица:');
for i:=1 to n do
begin
for j:=1 to n do write(matrix[i,j]:6);
writeln;
end;
writeln('Максимальный по модулю элемент матрицы,[',m_i,';',m_j,'] = ', matrix[m_i, m_j]:6);
for i:=1 to n do
if (i<>m_i) then
begin
for j:=1 to n do
if (j<>m_j) then write(matrix[i,j]:6);
writeln;
end;
end.

[BDA]

Здесь ввод не с клавиатуры, а заполнение случайными числами (только размер задается пользователем).
Код для считывания:

var
  s :string;
  f: text;
begin
  writeln('Введите имя файла');
  readln(s);
  assign(f, s);
  reset(f);
  readln(f, n);
  for i := 1 to n do
    for j := 1 to n do
      read(f, matrix[i,j]);
  close(f);