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

[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.

[IUnknown]

Твоя последняя редакция даже не компилируется, потому что нельзя одновременно называть A и тип и переменную этого типа.

А если заменить название типа на TA, то все прекрасно работает. Содержимое третьего файла выходит таким:

matrisa C
2.00 2.00 2.00 2.00
2.00 2.00 2.00 2.00
2.00 2.00 2.00 2.00

Сообщение отредактировано: IUnknown - 13.01.2012 13:24