помогите переделать задачку на файлы!!!

[Настенька..Блонди]

Помогите переделать задачку на файлы!!! Из текстового в типизированный!!!!!


Дан файл вещественных чисел, содержащий элементы прямоугольной матрицы (по строкам), причем начальный элемент файла содержит количество столбцов матрицы. Создать новый файл той же структуры, содержащий матрицу, транспонированную к исходной.

uses crt;
var f1,f2:text;
a:array[1..50,1..50] of real;
n,m,i,j:byte;
b:real;
s:string;
begin
clrscr;
assign(f1,'f1.txt');
reset(f1);
assign(f2,'f2.txt');
rewrite(f2);
read(f1,m); 
readln(f1,s);
n:=0;
while not eof(f1)do
begin
inc(n);
for i:=1 to m do
read(f1,a[n,i]);
readln(f1,s);
end;
if n>m then 
begin
for i:=1 to m do 
for j:=i to n do 
begin
b:=a[i,j];
a[i,j]:=a[j,i];
a[j,i]:=b;
end;
end
else 
begin
for i:=1 to n do
for j:=i to m do
begin
b:=a[i,j];
a[i,j]:=a[j,i];
a[j,i]:=b;
end;
end;
writeln(f2,n);
for i:=1 to m do 
begin
for j:=1 to n do
write(f2,a[i,j]:6:2);
writeln(f2,'');
end;
close(f1);
close(f2);
readln
end.

В ПАСКАЛЕ!!!!!!!

[XeN0N]

ДА!!!! РАБОТАТЬ НЕГРЫ!!!

почемуто это на ум пришло

попробуй так

for j:=1 to M do
begin
	for i:=1 to N do
		вывести в файл (a[i,j]);
end

[Stilet]

Настя, а что такое "транспонированную к исходной."?