Редактирование файла

var
    f: file of char;
    c: char;
    n: integer;
 
begin
    assign (f, 'c:\file.txt');
    reset (f);
 
    write ('Номер элемента: ');
    readln (n);
 
    seek (f, n);
 
    write ('Новый символ: ');
    readln (c);
    write (f, c);
 
    close (f);
 
readln
end.	

В языке программирования Pascal для редактирования файлов предназначена процедура seek. В качестве аргументов она принимает файловую переменную и номер заменяемого элемента. В это место помещается текущий указатель файла. Далее с помощью write производится запись в файл.

Предварительно файл необходимо открыть для чтения (reset).