Добавление записи в конец типизированного файла - Turbo Pascal

uses crt;
var f:file of integer;
    i,a:integer;
begin
clrscr;
assign(f,'111');
rewrite(f);
for i:=1 to 10 do
 begin
  a:=10;
  write(f,a);
 end;
reset(f);
writeln('Исходный файл');
while not eof(f) do
 begin
  read(f,a);
  write(a,' ');
end;
writeln;
reset(f);
for i:=1 to 10 do
 begin
  a:=20;
  seek(f,filesize(f));
  write(f,a);
 end;
reset(f);
writeln('Файл после дозаписи');
while not eof(f) do
 begin
  read(f,a);
  write(a,' ');
 end;
readln
end.