Var k1,k2:char;
s,s1,s2,m:string;
Begin{procedure}
Assign(f,f_name);
k1:='1';
x:=p_kur;
Repeat
ClearDevice;
Ramka;
SetColor(White);
Reset(f);
key:='q';
Readln(f,s);
k2:=Succ(k1);
s1:=k1+'.';
s2:=k2+'.';
While s<>s1 do
Readln(f,s);
y:=70;
Readln(f,s);
While s<>s2 do
Begin{While}
OutTextXY(10,y,s);
y:=y+20;
Readln(f,s);
End;{While}
key:=Readkey;
Case key of
#0: Begin{0}
Case ReadKey of
#72:If k1<>'1'
Then
k1:=Pred(k1);
#80: Begin{80}
Readln(f,s);
If s<>'Љ®Ґж'
Then
k1:=Succ(k1);
End;{80}
End;{Case}
End;{0}
#27:Begin{27}
OutTextXY(250,400,'Нажата клвиша Esc');
Delay(5000);
PutImage(100,400,n^,0);
End;{27}
Else
Begin{Else}
OutTextXY(220,375,'Нажата неправильная клавиша');
Delay(5000);
PutImage(100,375,n^,0);
End;{Else}
End;{Case}
Close(f);
Until key=#27;
n_menu:=n_menu-1;
Delete(f_name,3,4);
m:=Copy(f_name,2,1);
Val(m,p_kur,Osh);
End;{procedure}