TURBO PASCAL:Учебное пособие. Терёхин В.В. - 127 стр.

{$i-}
  Reset (f) ;
  if IOResult <> 0 then
    begin
         Writeln('Ошибка при открытии файла');
         Halt;
      end;
  for i : = 1 to n do
      for j := 1 to m do
         begin
            Read(f, T[i, j] );
            TT[j, i] := T[i, j] ;
         end;
  Close (f); {закрываем файл}
  {и повторно открываем его для до записи}
  Append ( f ) ;
  {выводим в файл пустую строку разделитель матриц)
  Writeln(f ) ;
  for i:= 1 to m do
    begin {выводим матрицу}
         for j := 1 to n do
         Write (f , TT[i, j] : 8: 3) ;
         Writeln(f) ;
      end;
  Close (f) ;
end.

      Полезны для работы с текстовыми файлами три стан-
дартные логические функции (ниже f - файловая переменная):
   • EOLN(f) – возвращает значение true, если в файле дос-
      тигнут конец строки, false – в противном случае;
   • SEEKEOLN(f) – пропускает пробелы и знаки табуляции
      до конца строки или до первого значащего символа и
      возвращает значение true, если достигнут конец стро-
      ки, false – в противном случае;
                                                       127