Статья: Обработка последовательных файлов в программе

readln(f); {* переход на новую строку *}

end;

Close(f) {**}

end.

Пример 2.

В существующем файле dan1.dat записана матрица из целых чисел. В новый файл dan2.dat переписать данную матрицу и добавить в каждую строку слово "сумма=" и результат вычисления суммы чисел в данной строке.

Program matrica;

var f1,f2: text;

x, s: integer;

begin

Assign (f1, 'dan1.dat');

Reset (f1); {* открытие файла для чтения *}

Assign (f2, 'dan2.dat');

Rewrite (f2); {* открытие файла для записи *}

While not eof (f1) do

begin

s:=0;

While not eoln (f1) do

begin

Read(f1,x);

Write(f2,x);

s:= s + x;

end;

Writeln (f2,' ',' сумма=',s);

Readln(f1);

end;

close(f1); close(f2);

Writeln ('Работа завершена, файл создан на диске');

end.