Дубликация строки содержащей максимальный элемент

[Dimas_]

Товарищи программисты! Срочно нуждаюсь в вашей помощи! Спасайте, пожалуйста!
Дана матрица размера M x N.
Продублировать строку матрицы, содержащую ее максимальный элемент. Как сделать чтоб матрицу читал из input.txt, и записало результат в output.txt?

program Matrix70;
var
j,i,JJ,M,N,II:integer;
a: array [1..11,1..10] of real;
begin 
writeln('Введите числа M (M<=10) и N (N<=10)');
read(M); readln(N);
writeln('Введите по ',N,' элементов ');
for i:=1 to M do begin
write(i,' строки : ');
for j:=1 to N do read(a[i,j]);
end;
JJ:=1;
II:=1;
for i:=1 to M do begin
for j:=1 to N do begin
if a[i,j]>a[II,JJ]then begin JJ:=j; II:=i; end;
end; end;
for i:=M+1 downto II+1 do begin
for j:=1 to N do begin
a[i,j]:=a[i-1,j];
end; end;
inc(M); 
writeln;
writeln('Ответ');
for i:=1 to M do begin
writeln;
for j:=1 to N do write(a[i,j],' ');
end;
end.

[ViktorR]

Например так:
- Формируешь текстовый файл со следующей структурой:
- Первая строка - два числа целого типа:RowIndex ColumIndex
- Последующие строки - набор чисел типа real
Строк должно быть RowIndex, чисел в строке - ColumIndex
- Объявляешь файловую переменную текстового типа:

var ...
      fh : text;

Далее открываешь учебник "Т.А. Павловская, Программирование на ЯВУ. Паскаль" (можно найти в списке учебников) на стр. 80 и внимательно читаешь.
Чтение из файла выполняешь через вложенные циклы, используя процедуры

read(fh, matr[RowIndex, ColumIndex]; {чтение первого и последующих значений в строке}
readln(fh, matr[RowIndex, ColumIndex]; {чтение последнего значения строки}

Конечно же, следует предусмотреть контроль размеров матрицы, если для матрицы выбран статический массив.

PS: Аналогичные действия и для записи в файл.

write(fh, matr[RowIndex, ColumIndex]; {запись первого и последующих значений в строке}
writeln(fh, matr[RowIndex, ColumIndex]; {запись последнего значения строки}

Как-то так, ...