Вывод матрицы в файл, Матрица выводится в файл в виде строки или столбца Опции

[Vasya_linux]

Здравствуйте уважаемые форумчане!
Задача: Ввод матрицы из файла и вывод этой же матрицы под
другим именем в другой файл (файлы задаются пользователем).
В итоге на экран вывод нормальный, а в файл только в строку или в столбец.
Где ошибка не пойму. Помогите пожалуйста.
Вот код:

const
n=2;
m=3;
type
a=array [1..n,1..m] of real;
var
i,j: integer;
f:text;
name,name1: string;
NRM:a; new_matr:a;
begin
 writeln('WRITE   NAME  of DATA  FILE');
 readln(name); assign(f, name); reset(f);
for i:=1 to N do
for j:=1 to M do
read(f,NRM[i,j]);
readln(f);
close(f);
 writeln('WRITE  NAME  of  RESULT  FILE');
readln(name1);
 assign(f, name1);
 rewrite(f);

for i:=1 to n do
for j:=1 to m do
new_matr[i,j]:=NRM[i,j];


writeln (f,'matrisa A' );
for i:=1 to n do
begin
for j:=1 to m do
write(f,new_matr[i,j]:8:3);
writeln;
end;

writeln(f);
close(f);
end.

[TarasBer]

В чём проблема? Матрицы последовательно считываются из файла, да.

> Но тогда как открыть 3-4 файла на чтение сразу?

В данном случае это не нужно, но вообще - заводишь 3-4 файловые переменные и каждую связываешь со своим файлом.

[Vasya_linux]

>>> В чём проблема? Матрицы последовательно считываются из файла, да.

Проблема в том, что этот код не работает. Выводятся 0.

Сообщение отредактировано: Vasya_linux - 12.01.2012 16:51