Значит есть файл, в нем записана квадратная матрица, ее нужно вывести на экран и транспонировать.
Вопрос как?
Через filesize узнаю количество компонент, потом нужно сделать sqrt, но integer его не поддерживает.
А real не поддерживает for.
Как узнать количесво столбов\строк?
Пользуйся поиском... Задача решалась - с использованием Eoln / Eof
P.S. Вот тут:
http://forum.pascal.net.ru/index.php?s=&showtopic=8131&view=findpost&p=56006
Если файл тпизированный, то можешь сделать вот так :
сначала читаешь размер, потом матрицу
var
x : array[1..20,1..20] of real;
f : file of real;
n : real;
nn,i,j : byte;
// ...
reset(f);
read(f,n);
nn := round(n);
i := 1; j := 0;
while(not(eof(f))) do begin
if j = nn then begin
inc(i);
j := 0;
writeln;
end;
inc(j);
read(f,x[i,j]);
write(x[i,j]:3:1,' ');
end;
// ...