Turbo pascal problem z kodem

[gladiatus2]

Napisałem sobie program chciałem dodać do niego kalkulator.Kiedy dodałem to wywala mi error 3 mój kod:

USES CRT; {moduˆ}

VAR {Zmiene}
haslo:longint;
wybor:char;
imie:string;
a,liczba:longint;
c:char;
b:text;
e1,e2,decyzja:integer;

LABEL kotwica1;

PROCEDURE muzyka; {Pierwsza procedura}
BEGIN
sound(2200);
delay(5000);
nosound;
END;

PROCEDURE powitanie; {Druga procedura}
BEGIN
writeln('Jak masz na imi©?');
read(imie);
write('Witaj ');
write(imie);
writeln(' ˝ycze miˆego dnia!!!');
readln;
readln;
END;

PROCEDURE wyjscie; {Trzecia procedura}
BEGIN
halt;
END;

PROCEDURE wykaz; {Czwarta procedura}
BEGIN
writeln;
writeln;
writeln('program tworzy plik tekstowy z wykazem liczb!');
writeln;
writeln('ile liczb mam wypisa† w pliku wykaz.txt na gˆ˘wnym katalogu dysku C?');
read(a);
writeln;
writeln('Czy na pewno mam wypisa† ',a,' liczb? [T/N]');
c:=readkey;
IF (c='n') OR (c='N') THEN halt;
IF (c='t') OR (c='T') THEN
BEGIN
liczba:=1;
Assign(b, 'C:/wykaz.txt');
rewrite(b);
writeln(b,'');
writeln(b,' Wykaz liczb:');
writeln;
REPEAT
writeln(b,liczba);
liczba:=liczba+1;
UNTIL liczba=a+1;
close(b);
writeln;
writeln('Zakoäczono tworzenie pliku wykaz!');
readln;
readln;
END;
END;

PROCEDURE kalkulator; {piĄta procedura}
BEGIN
clrscr;
writeln('Podaj 1 liczb©');
readln(e1);
writeln('Podaj 2 liczb©');
readln(e2);
writeln('Co chcesz zrobi†?');
writeln('1-dzielenie');
writeln('2-dodawanie');
writeln('3-mnoľenie');
writeln('4-odejmowanie');
writeln('Numer zadania i Enter:');
readln(decyzja);
IF decyzja=1 THEN dziel;
IF decyzja=2 THEN dodaj;
IF decyzja=3 THEN mnoz;
IF decyzja=4 THEN odejmij;
END;

PROCEDURE dziel; {procedura do kalkulator}
BEGIN
writeln(e1,':',e2,'=',e1/e2);
END;

PROCEDURE mnoz; {prodecura do kalkulator 2}
BEGIN
writeln(e1,'*',e2,'=',e1*e2);
END;

PROCEDURE dodaj; {procedura do kalkulator 3}
BEGIN
writeln(e1,'+',e2,'=',e1+e2);
END;

PROCEDURE odejmij; {procedura do kalkulator 4}
BEGIN
writeln(e1,'-',e2,'=',e1-e2);
END;

BEGIN {poczĄtek programu}
REPEAT
clrscr;
writeln('Podaj hasˆo by otrzyma† dost©p do programu');
read(haslo);
UNTIL haslo=28031999;
clrscr;
writeln('Otrzymujesz dost©p do programu');
readln;
writeln('Oto lista dost©pnych komend:');
writeln('Wybierz liczb© by uruchomi†: ');
writeln('1 dla melodi, 2 dla powitania, 3 by wyj˜† z programu, 4 by stworzy† wykaz liczb, 5 by wˆonczy† kalkulator');
wybor:=readkey;
IF wybor='1' THEN muzyka;
IF wybor='2' THEN powitanie;
IF wybor='3' THEN wyjscie;
IF wybor='4' THEN wykaz;
IF wybor='5' THEN kalkulator;
END. {koniec programu}

 

[trojanxem]

daj errory

 

[gladiatus2]

już sobie poradziłem wystarczyło procedury pozamieniać miejscami