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

uses crt;
type m=array[1..10] of integer;
var i,j:integer;
f:file of m;c:integer;a,b:m;
begin
clrscr;
assign(f,'d:\a\file.dat');
rewrite(f);
repeat
gotoxy(4,2);
write('vvedite znachenie:');
gotoxy(4,3);
write('1:vvod');
gotoxy(4,4);
write('2:dobavlenie');
gotoxy(4,5);
write('3:prosmotr');
gotoxy(4,6);
write('0:exit  ');
 read(c);
 case c of
 1:begin
 for i:=1 to 10 do
 begin
 gotoxy(3+7*i,7);
 write('a[',i,']=');read(a[i]);
 end;
 write(f,a);
 close(f);
 end;
 
 2:begin
 assign(f,'d:\a\file.dat');
 reset(f);
 for i:=1 to 10 do
 begin
 gotoxy(3+7*i,8);
 write('b[',i,']=');read(b[i]); end;
seek(f,filesize(f));
 write(f,b);
close(f);
 end;
 3:begin
assign(f,'d:\a\file.dat');
reset(f);
 gotoxy(4,9);
 while not eof(f) do
 begin
 read(f,a);
for i:=1 to 10 do
 write(a[i],'   ');
 end;
close(f);end;
 
 end;   until c=0; end.

uses crt;
const n=10;
type m=array[1..n] of integer;
     tfile=file of m;
var b:boolean;
procedure vvod(var f:tfile);
var a:m;
    k,i,j:integer;
begin
clrscr;
assign(f,'file.dat');
rewrite(f);
write('Сколько массивов записать в файл k=');
readln(k);
for i:=1 to k do
 begin
  for j:=1 to n do
  a[j]:=random(20);
  write(f,a);
 end;
close(f);
b:=true;
writeln('Файл создан');
readln
end;
procedure add(var f:tfile);
var a:m;
    i:integer;
begin
clrscr;
if not b then
 begin
  write('Файл еще не создан, вернитесь к пункту 1');
  readln;
  exit
 end;
reset(f);
for i:=1 to n do
a[i]:=random(20);
seek(f,filesize(f));
write(f,a);
close(f);
writeln('Массив добавлен');
readln
end;
procedure print(var f:tfile);
var a:m;
    i:integer;
begin
clrscr;
if not b then
 begin
  write('Файл еще не создан, вернитесь к пункту 1');
  readln;
  exit
 end;
reset(f);
while not eof(f) do
 begin
  read(f,a);
  for i:=1 to n do
  write(a[i]:4);
  writeln
 end;
close(f);
readln
end;
var f:tfile;
    w:char;
begin
clrscr;
b:=false;
repeat
clrscr;
writeln('Выберите действие:');
writeln('1-создать файл');
writeln('2-добавить массив в файл');
writeln('3-прочитать файл');
writeln('другое-выход');
readln(w);
case w of
'1':vvod(f);
'2':add(f);
'3':print(f);
else exit;
end;
until not (w in ['1'..'3']);
end.