Var s,w:string;
Begin{Procedure}
Case n_menu of
1: f_name:='main_men.pas';
2: Begin{2}
Str(p_kur,s);
f_name:='r'+s+'.pas';
End;{2}
3: Begin{3}
Str(p_kur,s);
Insert(s,f_name,3);
Insert('inf',f_name,4);
End;{3}
4: f_name:='test_men.pas';
5: Begin{5}
Str(p_kur,s);
Str(variant,w);
f_name:='v'+s+w+'.pas';
End;{5}
End;{Case}
Assign(f,f_name);
End;{Procedure}