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

             if S1 <> S2 then
               begin
                     Writeln(' (' , K, '): ' , S1) ;
                     Writeln(' (', K, ') : ' , S2) ;
                end;
           end;
      end;
  Close (fl) ;
  Close (f2);
end.
         Иногда необходимо открыть текстовый файл для запи-
си, и, не удаляя находящуюся в нем информацию, дописать
что-то в его конец.
  procedure Append(var f: Text);
Процедура Append открывает текстовый файл для дозаписи.
Если файл с именем, указанным в Assign, не существует, то вы-
зов процедуры Append приведет к ошибке.
         Пример:
program р60;
{Программа дописывает в текстовый файл с матри-
цей новую матрицу - результат транспонирования пер-
вой}
Const
  n = 3;
  m = 4;
var
  Т: array[1..n, 1.. m] of real;
  ТТ: array[1.. m, 1.. n] of real;
  f: Text;
  S: String;
  i, j: integer;
begin
  Writeln('введите имя файла');
  Readln(s);
  Assign(f, s);
                                                          126