procedure zafam;
begin
{$I-}
reset (Bz);
{$I+}
if IOResult <>0 then
begin
error('Запрос не возможен!!!!');{Процедура}
end
else begin
OKHO (10, 2,70,23,2);{Процедура}
repeat
write ('Введите фамилию: ');
readln (a);
b:=0;
while not eof (Bz) do
begin
read (Bz,bazz);
if a=bazz.FAM then tabl;
end;
prod('Запрос по Фамилии');{Процедура}
until (z='N') or (z='n');
Close (Bz);
ch10:=#27;
gmenu (5,3);{Процедура}
end;
end;