типизированные файлы

[Pyxy]

Помогите создать файл целых чисел (количество элементов файла и сами элементы вводятся с клавиатуры). Добавить элемент в конец файла. Выводить на экран содержимое нового файла.
Вот я сделала но оно не то что нужно выводит (

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var fail: file of integer;
    i,n,k,cum:integer;
begin
 write ('vvedit kilkist elementiv faily:');
 readln(n);
 assign (fail,'fail1');
 rewrite (fail);
 for i:=1 to n do
 begin
        write('vvedit ',i,'-i element faily:');
        readln(k);
        write(fail,k);
 end;
 reset (fail);
 while not eof(fail) do
 begin
 read (fail,k);
 write (k,' ');
 end;
 readln;
 close (fail);

 write ('element jakui treba dodatu y kinec faily:');
 readln (cum);
 rewrite (fail);
seek (fail,filesize(fail));
write (fail,cum);
close (fail);

reset (fail);
while not eof(fail) do
begin
read (fail,k);
write (k,' ');
end;
 close(fail);

 readln;
end.

нужно создать исходный файл, потом его же изменить и вывести измененные данные на экран

[whatever]

Чесно слово, твой ник уже ассоциируется с этой темой

http://programmersforum.ru/showthread.php?t=180709

http://programmersforum.ru/showthread.php?t=180674

[eoln]

 write ('element jakui treba dodatu y kinec faily:');
 readln (cum);
 reset(fail);{rewrite (fail);}

Ну и перед reset(fail) который до этого я бы ещё close(fail) добавил