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.