Создать, удалить и редактировать файл в Pascal
Ответы
var
f: file of char;
c: char;
i, n: byte;
begin
assign (f, 'c:\file.txt'); //обеспечивает связь файловой переменной программы с реальным файлом на диске. Первым аргументом указывается переменная, вторым – адресное имя файла
rewrite (f); //открывает файл в режиме записи, т.е. мы можем вводить данные в файл с помощью процедуры вывода из программы write. Если указанный файл отсутствует на диске, то он будет создан. Если файл существует и содержит данные, то все они будут удалены и заменены в дальнейшем новыми (перезаписаны)
write ('Количество символов: ');
readln (n);
for i:=1 to n do
begin
write ('Введите символ: ');
readln (c);
write (f, c); //Запись данных в файл
end;
close (f); //закрыть файл и «освободить» переменную f
end.