Программисты, отзовитесь. Где ошибка в коде Паскаль? Если пытаюсь создать базу, пишет exitcode = 2

у меня нормально всё работает в BP7

файл 'D:\bd.txt' - должен уже существовать что бы программа запустилась.

uses crt;
type
pasaziri = record
familia:string[20];
nomer_reisa:word;
kvo_bagaza:byte;
obshiy_ves:real;
end;

ff = file
of pasaziri;
label b1;

var z:ff;
k:pasaziri;
m:integer;
q:char;
rt1:integer;
procedure vvedenie;
begin
clrscr;
assign(z,'D:\bd.txt');
reset(z);
writeln('Vvedite dannie i nazmite "Enter" dlia prodolzenia ili "0" dlia vihoda');
writeln('Vvedite familiu pasazira (ne bolshe 20 simvolov)');
repeat
with k do
begin
readln(k.familia);
writeln('Vvedite nomer reisa (ot 0 do 65000)');
readln(nomer_reisa);
writeln('Vvedite kolichestvo bagaza (ne bolshe 250 edeniz)');
readln(kvo_bagaza);
writeln('Vvedite obshuiu massu bagaza (ne bolshe 8 znakov do i posle tochki)');
readln(obshiy_ves);
end;
write(z,k);
readln(q);
until q ='0';
close (z);
end;

begin
b1:
clrscr;
repeat
textbackground(7);
textcolor(1);
writeln('Programma dlia raboti s bazoi dannih "Pasaziri" prevetstvuet Vas!');
writeln('_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _');
writeln;
writeln('Vi voshli v dialogovoe okno "Menu".Nazmite neobchodimie klavishi:');
writeln('_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _');
writeln;
writeln('1: sosdanie novoi basi (starie dannie udaliaiutsa avtomaticheski');
writeln;
writeln('2: vihod is menu');
readln(m);

case m of
1:vvedenie;
2:begin
writeln('Vihod');
exit;
end
else
begin
writeln('Net punkta,sootvetstvuiushego klavishe');
writeln('Dlia vozvrata v glavnoe menu nazmite liubuiu klavishu');
readkey;
goto b1;
end;
end;
until m = 8;
readln;
end.

Может поможет, кому-то помогло же http: //www .cyberforum. ru/free-pascal/thread258640. html