Procedure Spravka;

 

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}