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

program p56;
{Программа выводит в текстовый файл матрицу n*m}
const
  n= 3;
  m= 4 ;
var
  Т: array[1.. n, 1.. m] of real;
  f: Text; {описываем файловую переменную}
  S: String;
  i, j: integer;
begin
  Writeln('введите элементы матрицы ', n, '*', m) ;
  For i:= 1 to n do
         for j : = 1 to m do
           begin
                  Write ('T[' , i, *, ' , j, '] = ') ;
                  Readln(T[i, j ] ) ;
           end;
  Writeln('введите имя файла');
  Readln(s);
  Assign(f, s); {связываем файловую переменную с
                         именем файла}
{$i-}
  Rewrite(f); {открываем текстовый файл для записи}
  If IOResult <> 0 then
     begin
         Writeln('Ошибка при открытии файла');
         Halt;
      end;
{$i+}
  for i:= 1 to n do
     begin
         for j:= 1 to m do
                  Write(f, T[i, j] : 8: 3) ;
         Writeln(f) ;
                                                         121