Pascal

Dobrý den dělám hru v pascalu nevím s nějak rady, mám tuto část programu
i:=0
end else if smer=11 then begin
writeln('Dosel jsi ke skalni zdi od ktere nevede zadna jina cesta nez zpatky.');
writeln('U skaly sedi mrtvola drzici kladkovy luk a na zadech ma toulech s sipy.');
writeln('Vezmes si luk se sipy nebo je tam nechas(7) a vrati se?');
readln(smer);
if smer

end else if i=1 then begin
writeln('Vzal sis luk a vracis se(7).');
readln(smer);,
mám proměné i a smer . Smer mi udaá cestu a i ma být inventař, jenže nevím jak to mám udělat. chci aby když hráč nečo zadá pak má luk a vrátíse na smer=7 ale když zadá 7 tak se jen vrátí na smer=7
a pak až dojde na smer=14 aby to vypadalo takhle:

end else if smer=14 and i=1 then begin

writeln('Dostal jsi se na dalsi mytinu, na druhem konci vidis maskovanou osobu stahovat z kuze jineho cloveka.');
writeln('Vzal jsi luk, natahl a zamiril a vystrelil.');
writeln('Tvuj sip zasahl lovce primo do hlavy.');
writeln('Kdyz jsi prisel bliz abys sis sveho nepritele prohledl, zjistil jse, ze to je nejake monstrum s vyspelimy zbranemi.');
writeln('Vsiml jsi si ze z mytiny vede i dalsi cesta.');
writeln('Nyni se muzes vydat po nove ceste(15) nebo se vratit(13).');
readln(smer);
if (smer<> 15) and (smer<> 13) then smer:=14;

end else if smer=14 and i=0 then begin
writeln('Dostal jsi se na dalsi mytinu, na druhem konci vidis maskovanou osobu stahovat z kuze jineho cloveka.');
writeln('Rychle si se otocil a zacal utikat, ale lovec si te vsiml namiril na tebe zbrani a zastrelil te.');
writeln('Lovec te zabil! Vracis se na zacatek(3)!');
readln(smer);
if (smer<> 3) then smer:=3;