Почему не работает процедура?

[bingooo]

Вот задача:

Организовать файл записей BAZA, содержащих следующие поля: фамилия, имя, отчество работника, должность, размер зарплаты. Написать программу, выполняющую следующие действия:
Ввод с клавиатуры данных о нескольких работниках, вывод на экран информации о человеке, чья фамилия введена с клавиатуры.

И прога соответственно:

type TBaza = record
Familia: string[15];
Name : string[10];
Otchestvo:string[20];
Doljnost:string[20];
Razmer_zarplati:integer;
end;

var Baza : TBaza;
FBaza : file of TBaza;
Nom:integer;
h:string;

procedure Menu;
begin
WriteLn('1 sozdanie novogo faila');
WriteLn('2 dobavlenie zapisei v fail');
WriteLn('3 pechatb faila');
WriteLn('4 vihod');
end;

procedure DobavlDan(Nul0 : Boolean);
{Nul0 = True - sozdanie novogo fila;
Nul0 = False - dobavlenie zapisei v suschestvuuchii }
var ch:char;
begin
if Nul0 then Rewrite(FBaza)
else
begin
Reset(FBaza);
Seek(FBaza, FileSize(FBaza));
end;
repeat
WriteLn;
Write('familia '); ReadLn(Baza.Familia);
Write('im9'); ReadLn(Baza.Name);
Write('otchestvo '); ReadLn(Baza.Otchestvo);
Write('dolgnostb'); Readln(Baza.Doljnost);
Write('razmer zarplati'); Readln(Baza.Razmer_zarplati);
Write(FBaza, Baza);
Write('prodolgitb nabor bazi? (y/n)');
readln(ch);
until ch = 'n';
Close(FBaza);
WriteLn;

end;


procedure Print(k:string); { pechat fila zapisei }
begin
Reset(FBaza);
while not Eof(FBaza) do
begin
Read(FBaza, Baza);
with Baza do
if Familia = k then WriteLn(Baza.Familia:15, ' | ', Baza.Name:10,
' | ', Baza.Otchestvo:15,' | ', Baza.Doljnost:20,' | ', Baza.Razmer_zarplati:10);
end;
Close(FBaza);
end;

begin
Assign(FBaza,'baza.dat');
Menu;
repeat
write('vvedite nomer komandi: ');
readln(Nom);
case Nom of
1: DobavlDan(True);
2: DobavlDan(False);
3: begin
writeln('vvedi iskomuy familiu');
Print(h);
end;
end;
until Nom=4;
readln;
end.

В этой проге не работает процедура Print, когда я ввожу фамилию, мне должно выдать информацию о человеке, а у меня, когда я вкл. пункт Печать и ввожу искомую фамилию ничего не выдает, а просто продолжает работать программа. Помогите найти ошибку пожалуйста.

[Grag]

У тебя в этой процедуре не хватает одного 'end'. Ты читаешь из файла одну запись и тут же закрываешь файл...