I am making a RPG zombie apocalypse version, however the program doesn't work. The code is as is:



Program GAME;
uses crt;
procedure Death;
begin
writeln(' |-| ');
writeln('--- ---');
writeln('--- ---');
writeln(' | | ');
writeln(' | | ');
writeln(' |_| ');
writeln('DEAD END');
end;
procedure House;
begin
writeln(' /-------\ ');
writeln('| home |');
writeln('| |');
writeln('| |-| |');
writeln('| | | |');
writeln('| |_| |');
writeln(' ---------');
writeln(' O ');
writeln(' --- ');
writeln(' | ');
writeln(' ^ ');
end;
procedure Gun;
begin
writeln(' ------------');
writeln(' ------------');
writeln(' | | (L) ');
writeln(' | | ');
writeln(' |_| ');
writeln(' COLT M24 GUN');
end;
procedure Survive;
begin

writeln(' |-| ');
writeln('--- ---');
writeln('--- ---');
writeln(' | | ');
writeln(' | | ');
writeln(' |_| ');
writeln('SURVIVED');
end;
procedure WELCOME ;
begin

writeln('OOOOOOO O O OOOOOOOO OOOOOO OOOOOO O O OOOOO ********* ');
writeln(' O O O O O O O OO O O * O.O * ');
writeln(' O O O O OO O O O O O OOOOO ********* ');
writeln(' O OOOOOOO OOOOOOOO O O O O OO O *ESCAPE * ');
writeln(' O O O O OOOOOO OOOOOO O O OOOOO * THE * ');
writeln(' O O O O * ZONE * ');
writeln(' O O O OOOOOOOO xXPART-1: THE RECKONINGXx ********* ');
end;
procedure instructions;
begin
writeln('In this game you have to use your judging skills,');
writeln('through trial and error, to survive the zombie outbreak..');
writeln('if you see *xXxxxxx*/*Yyyyyy*, type the word between the **s to');
writeln('make your decision.');
writeln;
writeln('press <Enter> to go back to the menu.');
readln;
clrscr;
end;
Label 0,1,2,3,4,5,6,7,8,9,10;
var
weather: array[1..8] of string;
choice0:char;
name1, name2: string;
c1, c6, c2, c3, c4, c5, c7, c8: char;
gunn: integer;
Begin
clrscr;
randomize;
weather[1]:='sunny';
weather[2]:='rainy';
weather[3]:='windy';
weather[8]:='really blue';
weather[4]:='cloudy';
weather[5]:='dark as hell';
weather[6]:='SECRET WEATHERRRRRRRRRRRRRRRR';
weather[7]:='bad';
repeat
1:
clrscr;
WELCOME;
writeln('1-Start the game');
writeln('2-Read Instructions(RECOMMENDED)');
writeln('3-Quit game OAO');
readln(choice0);
Case choice0 of
'2':instructions;
'3':halt
End;
Until choice0='1';
clrscr;

writeln('What is your name?');
readln(name1);
writeln('Ok, how about the name of your best friend?');
writeln('(If you are a loner like me, just type LONER.');
readln(name2);
clrscr;
0:
writeln('After a long day of hard work, you come home, ');
delay(8000);
writeln('the weather becomes ',weather[random(7)+1],' . Walking forward, ');
delay(8000);
writeln('you see a group of people in front of your house.');
delay(8000);
HOUSE;
writeln('Do you walk Towards the your house,or Go to the house of ',name2,' ?');
writeln('(T/G)');
read(c1);
Case c1 of
'T','t' : Begin
Death;
Delay(4000);
writeln('You have been killed by zombies.');
writeln('Try again?');
readln(c8);
if c8<>'#' then
goto 1;
End;
'G','g' : Begin
2:writeln('You rush to the home of ',name2,' and rush in.');
delay(8000);
writeln('Do you go in by front, or back door?(F/B)');
readln(c2);
Case c2 of
'F':Begin
writeln('You go in through the front door safely.');
writeln('After you go in, you see a gun and take it.');
GUN;
3:writeln('Your friend asks-- ',name1,', we have to go get some supplies.');
writeln('You reluctantly agree and go out.');
writeln('After a few steps, you notice that ',name2,'is injured.');
writeln('If you Ignore him, he may kill you. However, can you Kill your friend?');
writeln('(I/K)');
readln(c3);
Case c3 of
'I':Begin
6:writeln('He was just scratched, not bitten.');
writeln('You both go and get some supplies.');
readln;
writeln('Suddenly,your friend slipped and lured a bunch of zombies.');
writeln('Do you save him?');
writeln('(S/N)');
readln(c5);
case(c5) of
'S': Begin
writeln('You save him, but before you know, zombies are all around.');
writeln('You have died together.');
DEATH;
writeln('Try again?');
readln;
goto 6;
end;
'N': Begin
writeln('You run away with the supplies.');
writeln('You have survived. However, your friend has died.');
writeln('This is only the start of this survival game.');
SURVIVE;
readln;
Goto 1;
End;
'K' :Begin
writeln('You killed your friend.');
delay(3000);
writeln('The blood attracted a lot of zombies.');
DEATH;
writeln('Try again?');
readln;
Goto 3;
End;
'B': Begin
writeln('You go in through the back door.');
delay(3000);
writeln('You try your best to walk silently, however you stepped on a trap your friend made.');
delay(3000);
Death;
writeln('You have died. Try again...');
readln;
goto 2;
end;
end;
end;
end;
end;
end;
end;
end;
End.