Procedure Find;

 

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}