pisze taka grę. zadaje różne pytania. jak ktoś odpowie źle to program ma wracać do pierwszego pytania. jak to zrobić? PILNE

2007-01-18 15:49:16, lilidu
UWAGA: Pytanie nie zostało jeszcze sprawdzone przez administratora..!

2007-01-20 16:02:53, username
UWAGA: Odpowiedź nie została jeszcze sprawdzona przez administratora..!
pytanie zapisane w tablicy rekordowej, wyswietlasz je, odpowiadzasz. Jezeli zanaczyles zla wracasz do tab[1]. Cos takiego umieszczasz w petli repeat/until pytanie=ilosc_pytan;

zagadnienie=record
odpowiedz:char;{tu beda odpowiedzi, np a,b,c,d}
answer:string; {tresc pytania}
{i inne pierdolki}

repeat
inc(i)
pytanie(i); {procedura}
until i=max;
__________________________________________________
procedure pytanie(i:word);
var odp:char;
begin
write(tab[i].string);
readln(odp);
if odp=tab[i].odzpoiwedz then begin
writeln('odpowiedziales dobrze! Przejdz d onastepnego pytania');
delay(1000);

else begin
writeln('odpowiedziales zle :(');
i:=0;
end;

2007-01-30 18:24:30, oal
UWAGA: Odpowiedź nie została jeszcze sprawdzona przez administratora..!
nie wiem

2007-02-23 13:29:08, Karol
UWAGA: Odpowiedź nie została jeszcze sprawdzona przez administratora..!
Użyj goto

2007-07-04 19:55:01, Jean Pierre Sexi Dupka
UWAGA: Odpowiedź nie została jeszcze sprawdzona przez administratora..!
na moje, metoda kolegi username troche zakrecona, wg. mnie mozna uzyc labela (wiem, wiem metoda przestarzala i nie polecana blablabla ale kolega zadajacy pytanie nie jest chyba zaawansowanym pascalowcem poslugujacym sie zawilymi komenadmi i chce przejrzystego kodu (dla siebie))

Udziel odpowiedzi na powyższe pytanie...

::: działy ::::