Mam do napisania program milionerzy .Na zasadach takich jak gra w telewizji
Oto tresc:

Program zadaje 12 pytan i poprawnie we wszystkim mozliwych sytuacjach podaje na koncu wygrana i gwarantowana. Przy zadaniu kazdego pytania podaje ile mamy gwarantowane i o ile gramy. W pytaniu sa 4 mozliwe odpowiedz. Piata odpowiedz to rezygnuje z dalszej gry. Dodatkowa opcja to uzycie kola ratunkowego pol na pol.

Ponizej prezentuje to co sam napisalem. Ale co gdzie mam dopisac zeby byla mozliwa opcja rezygnacji z gry oraz opcja
uzycia kola ratunkowego pol na pol

Oto moj kod. Co gdzie mam dopisac aby wszystko bylo w porzadku?

uses crt;

var wygrana,gwarantowana:real;
ktore, koniec: integer;
odpowiedz,poprawna: char;

begin

clrscr;

wygrana:=0;
gwarantowana:=0;
ktore:=1;
koniec:=0;

repeat

writeln('Na twoim koncie jest juz ',wygrana:7:2);
writeln('Gwarantowana kwota to ',gwarantowana:7:2);
writeln('');
writeln('Pytanie nr ',ktore);


if ktore=1 then

begin
WRITELN('');
WRITELN('WALCZYSZ O 500 zl');

poprawna:='b';
writeln('');
Write('Pytanie brzmi nastepujaco:');
WRITELN('JAKIE JEST NAJSZYBSZE ZWIERZE LaDOWE??');
writeln('');
writeln(' a-SlOn');
writeln(' b-GEPARD');
writeln(' c-LASICA');
writeln(' d-HART');
writeln('');
writeln('Twoja odpowiedz to');
readln(odpowiedz);

end;


if ktore=2 then

begin
WRITELN('');
WRITELN('WALCZYSZ O 1000 ZL');


poprawna:='c';
writeln('');
Write('Pytanie brzmi nastepujaco:');
WRITELN('JAKA WYSOKOSC MA MOUNT EVEREST??');
writeln('');
writeln(' a-8858m n.p.m.');
writeln(' b-9948m n.p.m.');
writeln(' c-8848m n.p.m.');
writeln(' d-9958m n.p.m.');
writeln('');
writeln('Twoja odpowiedz to');
readln(odpowiedz);

end;


if ktore=3 then

begin

WRITELN('');
WRITELN('WALCZYSZ O 2000 zl');

poprawna:='a';
writeln('');
Write('Pytanie brzmi nastepujaco:');
WRITELN('W KToRYM ROKU POWSTAl PIERWSZY PROJEKT SIECI KOMPUTEROWEJ??');
writeln('');
writeln(' a-1968');
writeln(' b-1969');
writeln(' c-1958');
writeln(' d-1961');
writeln('');
writeln('Twoja odpowiedz to');
readln(odpowiedz);

end;


if ktore=4 then

begin

WRITELN('');
WRITELN('WALCZYSZ O 5000 zl');

poprawna:='c';
writeln('');
Write('Pytanie brzmi nastepujaco:');
WRITELN('NA JAKa ODLEGlosc MOZNA PRZESYlAc DANE PRZY POMOCY 10BASE-5??');
writeln('');
writeln(' a-DO 185M');
writeln(' b-DO 500M');
writeln(' c-DO 300M');
writeln(' d-DO 800M');
writeln('');
writeln('Twoja odpowiedz to');
readln(odpowiedz);

end;


if ktore=5 then

begin

WRITELN('');
WRITELN('WALCZYSZ O 10000 zl');

poprawna:='b';
writeln('');
Write('Pytanie brzmi nastepujaco:');
WRITELN('Z JAKa PRZEDKOscia MOzNA PRZESYlAc DANE PRZY POMOCY SKReTKI 4-KATEGORII??');
writeln('');
writeln(' a-10');
writeln(' b-100');
writeln(' c-50');
writeln(' d-16');
writeln('');
writeln('Twoja odpowiedz to');
readln(odpowiedz);

end;


if ktore=6 then

begin

WRITELN('');
WRITELN('WALCZYSZ O 20000 zl');

poprawna:='b';
writeln('');
Write('Pytanie brzmi nastepujaco:');
WRITELN('JAKIE JEST NAJWIEKSZE JEZIORO W POLSCE??');
writeln('');
writeln(' a-MAMRY');
writeln(' b-DaBIE');
writeln(' c-sNIARDWY');
writeln(' d-MIEDWIE');
writeln('');
writeln('Twoja odpowiedz to');
readln(odpowiedz);

end;


if ktore=7 then

begin

WRITELN('');
WRITELN('WALCZYSZ O 50000 zl');

poprawna:='a';
writeln('');
Write('Pytanie brzmi nastepujaco:');
WRITELN('NAJDluzSZA RZEKA sWIATA??');
writeln('');
writeln(' a-AMAZONKA');
writeln(' b-NIL');
writeln(' c-WISlA');
writeln(' d-ODRA');
writeln('');
writeln('Twoja odpowiedz to');
readln(odpowiedz);

end;


if ktore=8 then

begin

WRITELN('');
WRITELN('WALCZYSZ O 100000 zl');

poprawna:='c';
writeln('');
Write('Pytanie brzmi nastepujaco:');
WRITELN('JEzELI WPOLSCE JEST GODZINA 18:00 TO KToRA JEST W KANADZIE??');
writeln('');
writeln(' a-20');
writeln(' b-18');
writeln(' c-15');
writeln(' d-12');
writeln('');
writeln('Twoja odpowiedz to');
readln(odpowiedz);

end;


if ktore=9 then

begin

WRITELN('');
WRITELN('WALCZYSZ O 1500000 zl');

poprawna:='b';
writeln('');
Write('Pytanie brzmi nastepujaco:');
WRITELN('JAKI JEST NAJWIEKSZY SAMOLOT sWIATA??');
writeln('');
writeln(' a-AIRBUS A380-800');
writeln(' b-AN-225 MRIYA');
writeln(' c-BIOEING 747');
writeln(' d-F-16');
writeln('');
writeln('Twoja odpowiedz to');
readln(odpowiedz);

end;


if ktore=10 then

begin

WRITELN('');
WRITELN('WALCZYSZ O 250000 zl');

poprawna:='a';
writeln('');
Write('Pytanie brzmi nastepujaco:');
WRITELN('GDZIE zYJA KRABY WSPINAJaCE SIe NA DRZEWA??');
writeln('');
writeln(' a-KARAIBY');
writeln(' b-KUBA');
writeln(' c-WYSPY OCEANU SPOKOJNEGO I INDYJSKIEGO');
writeln(' d-RAFY KORALOWE W EGIPCIE');
writeln('');
writeln('Twoja odpowiedz to');
readln(odpowiedz);

end;


if ktore=11 then

begin

WRITELN('');

WRITELN('WALCZYSZ O 500 000 zl');

poprawna:='b';
writeln('');
Write('Pytanie brzmi nastEpujAco:');
WRITELN('GDZIE PO RAZ PIERWSZY WYTOPIONO ZELAZO??');
writeln('');
writeln(' a-NA BLISKIM WSCHODZIE');
writeln(' b-NA BLISKIM ZACHODZIE');
writeln(' c-NA POLNOCY');
writeln(' d-NA POLUDNIU');
writeln('');
writeln('Twoja odpowiedz to');
readln(odpowiedz);

end;


if ktore=12 then

begin

WRITELN('');
WRITELN('WALCZYSZ O 1000000 zl ');

poprawna:='d';
writeln('');
Write('Pytanie brzmi nastepujaco:');
WRITELN('KTO PROWADZI PROGRAM MILIONERZY??');
writeln('');
writeln(' a-KRZYSZTOF IBISZ');
writeln(' b-KASIA KOWALSKA');
writeln(' c-PAMELA ANDERSON');
writeln(' d-HUBERT URBAnSKI');
writeln('');
writeln('Twoja odpowiedz to');
readln(odpowiedz);

end;


if odpowiedz=poprawna then

begin

if ktore=1 then wygrana:=500;
if ktore=2 then wygrana:=1000;
if ktore=3 then wygrana:=2000;
if ktore=4 then wygrana:=5000;
if ktore=5 then wygrana:=10000;
if ktore=6 then wygrana:=20000;
if ktore=7 then wygrana:=40000;
if ktore=8 then wygrana:=80000;
if ktore=9 then wygrana:=150000;
if ktore=10 then wygrana:=250000;
if ktore=11 then wygrana:=500000;
if ktore=12 then wygrana:=1000000;
if ktore=2 then gwarantowana:=1000;
if ktore=7 then gwarantowana:=40000;
if KTORE=12 THEN GWARANTOWANA:=1000000;

end;

if odpowiedz<>poprawna then koniec:=1;

if ktore=12 then koniec:=1;

ktore:=ktore+1;

until koniec=1;

if wygrana>=gwarantowana then write('GRATULUJe wygrales ',GWARANTOWANA:7:2);
if WYGRANA>600000 THEN WRITELN ('GRATULUje wygrales excl.gif!MILION!!!Zl');
if GWARANTOWANA>500000 THEN WRITELN('GRATULUJ? WYGRAlEs excl.gif!MILION!!!');

readln;
end.