Help with pascal

I know only fucktards use pascal, but i need help with a broken code:


It's about a lame game:




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:D');
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.

ワロタｗｗｗｗｗｗｗｗｗｗ

Write in Pascal and watch your problems Blaise away!

whats the error fagget (DELPHI coder here)

cat is going to help you: http://www.youtube.com/watch?v=TKoQKrmNA3Q#t=30s



Searching for legit Microsoft Product keys, Windows 8,7,Studio,Server etc.?

 Mail me at jeremiahgoldstein@hotmail.com

 25$ a pop

Searching for legit Microsoft Product keys, Windows 8,7,Studio,Server etc.?

 Mail me at jeremiahgoldstein@hotmail.com

 25$ a pop

Searching for legit Microsoft Product keys, Windows 8,7,Studio,Server etc.?

 Mail me at jeremiahgoldstein@hotmail.com

 25$ a pop



Searching for legit Microsoft Product keys, Windows 8,7,Studio,Server etc.?

 Mail me at jeremiahgoldstein@hotmail.com

 25$ a pop

Searching for legit Microsoft Product keys, Windows 8,7,Studio,Server etc.?

 Mail me at jeremiahgoldstein@hotmail.com

 25$ a pop

Searching for legit Microsoft Product keys, Windows 8,7,Studio,Server etc.?

 Mail me at jeremiahgoldstein@hotmail.com

 25$ a pop



Searching for legit Microsoft Product keys, Windows 8,7,Studio,Server etc.?

 Mail me at jeremiahgoldstein@hotmail.com

 25$ a pop

Searching for legit Microsoft Product keys, Windows 8,7,Studio,Server etc.?

 Mail me at jeremiahgoldstein@hotmail.com

 25$ a pop

Searching for legit Microsoft Product keys, Windows 8,7,Studio,Server etc.?

 Mail me at jeremiahgoldstein@hotmail.com

 25$ a pop

probably defined too many labels? ^^