Определить содержимое файла f после выполнения операторов

[Corwin88]

Serge_Bliznykov большое спасибо Вам и всем кто отписался в этой теме.

ну и конечная программа.

program proga;   
const   
  name='C:\2';   
var    
  f:file of integer;   
  i,k:integer;   
begin   
  assign(f,name);   
  rewrite(f);   
  for i:=3 downto 1 do   
  begin   
    k := sqr(i);   
    write(f,k);   
  end;   
   reset(f);   
  while Not Eof(f) do   
  begin   
    Read(f,k);   
    writeln(k);   
  end;   
  close(f);   
  WriteLn('File was saved.');   
  readln   
end.

[Serge_Bliznykov]

не знаю, насколько это важно,
но я бы ещё перед reset(f) поставил предварительно close(f);
Т.е. перед открытие на чтение сначала закрываем файл. При этом всё должно корректно сохраняться...