sorry máš pravdu tady je začátek ze hry:
program TheHunt;
uses crt;
var smer,preziti,i:integer;


begin
clrscr;
randomize;
smer:=1;

repeat
clrscr;
if smer=1 then begin
writeln(' The Hunt');
writeln;
writeln;
writeln('for continue');
writeln(' (2)');
readln(smer);
if (smer<> 2) then smer:=1;

end else if smer=2 then begin
writeln('Probudily jste se na mytine obklopene neprostupnou dzungli.');
writeln('Pred sebou vidite vyslapanou cestu po ktere se vydas(3).');
readln(smer);
if (smer<> 3) then smer:=2;