Pascal IDE

Dobrý den, potřeboval bych pomoc. Program spustím, ale nefunguje tak jak má. Poradíte mi s chybami?

Děkuji.

program cesta;
uses crt;
label kruhovyobjezd;
var i,j,k:integer;

BEGIN
clrscr;
kruhovyobjezd:
writeln('Prijel jste do mesta na kruhovy objezd. Pojedete na sever(1), na zapad(2) a nebo na vychod(3)?';
readln(i);
if i=1 then begin
writeln('Vjel jste do zakazu vjezdu a proti vam se riti auto. Jak se zachovate? Strhnete volant doprava(1), strhnete volant doleva(2) a nebo pridate plyn(3)? ';
readln(j);
if j=1 then begin
writeln('Narazite do zaparkovaneho auta, majiteli auta jste zpusobil 200 000.- skodu, kterou musite uhradit.';
readln(j);
if j=2 then
writeln('Ritite se po chodniku a prejizdite chodce, ktereho na miste zabijite, koncite ve vezeni na 8 let.';
readln(j);
if j=3 then
writeln('Jedete 150 kilometrovou rychlosti a celne se srazite s protijedoucim n kladakem, jste na miste mrtev.';
end;
end;
readln(i);
if i=2 then begin
writeln('Vjizdite do slepe ulicky, jedu zpet na kruhovy objezd';
goto kruhovyobjezd;
readln(i);
if i=3 then begin
writeln('Prijel jste na parkoviste. Zaparkuje te auto(1), pojedete dal(2) a nebo se otocite a pojedete zpet(3)?';
readln(j);
if j=1 then begin
writeln('Zaparkoval jste a vystupujete z vozu, zahledne vas parta gangsteru. Jak se zachovate? Zacnu utikat(1), nasednu zpet do vozu a zamknu se(2), sundam si bundu a protahnu se(3)';
readln(k);
if k=1 then
writeln('Nejste zrovna sprinter a tak vas parta brzo dozene a okrade vas o vsechno. Koncite nahy na silnici';
readln(k);
if k=2 then
writeln('Parta vam rozseka auto a jeste vas okrade. Koncite nahy na ulici ve sveho rozflakaneho auta.';
readln(k);
if k=3 then
writeln('Parta vas respektuje a vy si pridavate do jejich party. Koncite gangsterem';
end;
end;
end;
readln();
End.