Free Pascal: Wo liegt das Problem in dem Code ?

Hallo
Will ein kleines Programm schreiben, wo man einfach nur Leichte Sachen Berechnen muss! Bin zwar noch nicht fertig, aber schon bei der ersten Berechnung gibt es ein Problem!  Ich kann das Problem leider nicht starten, Pascal deutet auf einen Fehler in der Letzten Zeile, also (End.). Hier mal mein Code, villeicht wisst ihr ja wo hier der Fehler liegt

 

program  projekt1;
uses CRT;
const c=36;
       d=42;
var a,Ergebnis:Integer;


Begin
Writeln('In diesem Minispiel geht es darum ans Ziel zu kommen!!');
Writeln('Das Spiel besteht aus folgenden Aufgaben:');
Writeln;
Writeln('-> Additon');
Writeln('-> Subtraktion');
Writeln('-> Multiplikation');
Writeln('-> Division');
Writeln;
Writeln;
Writeln;
Writeln;
Textcolor (4);
Highvideo;
Writeln('Geben sie die Zahl "1" ein, um mit der ersten Uebung zu beginnen.');

Read(a);

IF (a=1) Then
Begin
clrscr;

 gotoxy(25,2);
Textcolor (Yellow);

Highvideo;
Writeln ('Multiplikation zweier  Zahlen');

Normvideo;
Textcolor (White);

gotoxy(11,12);
Writeln('Berechnen sie: 36 + 42=');
Ergebnis:= c+d;
Read (Ergebnis);
IF Ergebnis=77 Then
Begin
Writeln ('77 ist Richtig');
Writeln;
Writeln;
Writeln('drücken Sie die "2" um zur zweiten Aufgabe zu gelangen');

Write('77 ist Richtig');

Writeln;
Writeln;
Writeln;
Writeln ('Druecken Sie die "2" um zur zweiten Aufgaben zu kommen');
End

ElSE
Begin
Writeln('Das war leider falsch! Starten sie Das Programm erneut, um es nochmal zu probieren');

end;
Readkey;


End.