Типизированный файл целых чисел

[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.

[alexiz]

Помочь? Пожалуйста! ICQ: 29910380