Стандартная процедура:
Пример 1.Создать и сохранить в файле ‘x.dat’ последовательность целых чисел от 10 до 20.
program ex2;
uses crt;
var fi:file of integer ;
i:integer;
Begin clrscr;
assign(fi,'x.dat'); rewrite(fi);
for i:=10 to 20 do
write(fi,i);
close(fi);
end.
Пример 2.Считать первые пять компонент из файла ‘x.dat’ и вывести на экран квадраты этих значений.
program ex3;
uses crt;
var fi:file of integer ;
i:integer;
Begin clrscr;
assign(fi,'x.dat'); reset(fi);
while not eof(fi) do
begin
read(fi,i );
write (i*i,' ');
end;
close(fi);
readkey;
end.