Файлы паскаль. i\o error 6.

[Bmstu]

Есть типизированные файл, кторый содержит записи типа (citi:string;fam:string;year:intege r.Нужно узнать размер файла.
reset(TipFile);
writeln(filesize(TipFile);
Написал, но при запуске программы возникает ошибка i\o error 6.
Если знаете можете помочь написать процедуру для удаления из типизированного файла всех компонентов с заданным годом рождения?
Вот сам код
program DolgalevProject;

{$APPTYPE CONSOLE}

uses
SysUtils,
DolgalevUnit in 'DolgalevUnit.pas';
{----------------------------------------------------------------------------------------------}
type
st=string[15];
Turist=record
city:st;
fam:st;
year:integer;
end;
tFile=file of Turist;
mass=array [1..10] of string;
{----------------------------------------------------------------------------------------------}
var TxtFile:textfile;
TipFile:tFile;
n,i:integer;
NameTipFile:string;
NameTxtFile:string;
a:Turist;
Massiv:mass;
year_from_del:integer;
{----------------------------------------------------------------------------------------------}
procedure VvodTipFile_fromTxtFile ( var TxtFile:textfile; var TipFile:tFile; var n:integer);
var a:Turist;
begin
Reset(TxtFile);
rewrite(TipFile);
n:=0;
while not eof(TxtFile) do
begin
readln(TxtFile,a.city);
readln(TxtFile,a.fam);
readln(TxtFile,a.year);
write(TipFile,a);
n:=n+1;
end;
closefile(TxtFile);
closefile(TipFile);
end;
{----------------------------------------------------------------------------------------------}
procedure formirovanie_massiva( var TipFile:tFile; var n:integer; var Massiv:mass);
var i,j,k,sch:integer;
buf:Turist;
begin
k:=0;
i:=1;
reset(TipFile);
while (k<=10) and (not eof(TipFile)) do begin
read(TipFile,buf);
for j:=1 to 10 do begin
if Massiv[j]=buf.city then sch:=1;
end;
if sch<>1 then begin
Massiv[i]:=buf.city;
k:=k+1;
i:=i+1;
end
else sch:=0;
end;
closefile(TipFile);
end;
{----------------------------------------------------------------------------------------------}
procedure delet_from_TipFile( var Tipfile:tfile; year_for_del:integer);
var buf:turist;

begin
reset(TipFile);
while not eof(TipFile) do begin
read(TipFile,buf);
if year_for_del=buf.year then
begin



end;

end;



end;
{----------------------------------------------------------------------------------------------}
begin
readln(NameTxtFile);
assign(TxtFile,NameTxtFile);
readln(NameTipFile);
assign(TipFile,NameTipFile);
VvodTipFile_fromTxtFile(TxtFile,Tip File,n);
{----------------------------------------------------------------------------------------------}
reset(TipFile);
while not eof(TipFile) do
begin
read(TipFile,a);
writeln(a.city);
writeln(a.fam);
writeln(a.year);
end;
closefile(TipFile);
{----------------------------------------------------------------------------------------------}
reset(TipFile);
writeln(filesize(TipFile);
closefile(TipFile);
formirovanie_massiva(TipFile,n,Mass iv);
for i:=1 to 10 do
writeln(Massiv[i]);


readln;
end.