uses crt;
var
f : file of integer;
n : integer;
begin
clrscr;
assign(f, 'c:\f.int');
rewrite(f); // создаем
write(f, 13); // пишем
close(f); // ЗАКРЫВАЕМ
reset(f); // открываем для чтения/дозаписи (можно и другой программой)
seek(f, filesize(f)); // ищем конец файла
write(f, 100); // пишем
close(f); // закрываем
reset(f); // открываем для чтения
while (not(eof(f))) do begin
read(f, n); // читаем
writeln(n); // выводим
end;
close(f);
readln;
end.