구문 오류, ';' 예상했지만 'until'이 발견되었습니다.

Question

파스칼 코드에 문제가 있습니다. 몇 가지 오류가 있으며 어디서 모르는 지요.

program GTA6; 

uses 
    Crt; 

var 
    obraz, x, mampistoli, mamnuz: Integer; 
begin 
    clrscr; 
    randomize; 
    obraz := 1; 

    repeat 
    clrscr; 
    if obraz = 1 then 
    begin 
     writeln('Je 9:00 rano. Probudis se ve svem byte. Nekdo ti zvoni na dvere. Pujdes otevrit(2) nebo budes zvonek ignorovat(3)?'); 
     readln(obraz); 
     if (obraz <> 2) and (obraz <> 3) then 
     obraz := 1; 
    end 
    else 
    if obraz = 2 then 
    begin 
     writeln('Otevres dvere a jsou tam dva dvoumetrovy plesaty chlapi s pistolema v ruce. Prej dluzis jejich sefoj 200 000 Kc a chce je vratit do 19:00 jinak te prijdou zabit.'); 
     writeln(' Sahnout po pistoli(4), nedelat nic (5)'); 
     readln(obraz); 
     if (obraz <> 2) and (obraz <> 3) and (obraz <> 4) and (obraz<> 5) then 
     obraz := 2; 
    end 
    else 
    if obraz = 5 then 
    begin 
     if mampistoli <> 1 then 
     begin 
     writeln('Odesli. Ty zjistis, ze nemas 200 000.'); 
     writeln('vzit si pistoli(1), nebo si vzit nuz(2)'); 
     readln(x); 
     if x = 1 then 
      mampistoli := 1; 
     if x = 2 then 
      mamnuz := 1; 
     end; 
     writeln('Takhle narychlo tolik penez nesezenes...budes muset udelat banku, nebo tak neco.'); 
     writeln('Vyloupit banku (6), trafiku (7), vykr st auto (8)'); 
     readln(obraz); 
     if (obraz <> 6) and (obraz <> 7) and (obraz <> 8) then 
     obraz := 5; 
    end 
    else 
    if obraz = 6 then 
    begin 
     if mampistoli = 1 then 
     begin 
     writeln('Rozhodl jsi se vyloupit banku s pistoli.'); 
     writeln('Hlidac videl tvoji zbran a vystrelil po tobe!'); 
     x := random(100); 
     if x < 50 then 
      writeln('Trefil te primo do hlavy!'); 
     writeln('Zemrel jsi!'); 
     obraz := 0; 
     end; 
    until obraz = 0; 

    writeln('KONEC HRY'); 
    if x > 50 then 
    writeln('Netrefil se!'); 
    readln; 
end. 

어디에 문제가 있습니까?

Answer 1

until 문 앞에 end;을 추가하십시오.

Answer 2

if 문 중 하나에 대해 end;가 누락되었습니다.

당신은 코드 블록 시작이 두 if 문이 있습니다

end else if obraz=6 then begin 
    if mampistoli=1 then begin 

을하지만, 단 하나의 end;을 종료하려면이있다.

코드를 세 심하게 들여 쓰면 이런 문제를 쉽게 발견 할 수 있습니다.

Answer 3

repeat 
... 
    end else if obraz=6 then 
    begin 
     if mampistoli=1 then 
     begin 
      writeln('Rozhodl jsi se vyloupit banku s pistoli.'); 
     writeln('Hlidac videl tvoji zbran a vystrelil po tobe!'); 
     x:=random(100); 
     if x< 50 then writeln('Trefil te primo do hlavy!'); 
      writeln('Zemrel jsi!'); 
     obraz:=0; 
     end; 
    END; <--- 
until obraz=0;