Pascal - Esercizio su Case..of

Salve a tutti, ho provato a svolgere l'esercizio riguardante Case..of. Ho provato a risolverlo, ma essendo abbastanza digiuno di Pascal non ho ottenuto buoni risultati. Qualcuno potrebbe corregerlo e darmi una mano?? Ho le olimpiadi di Informatica, ma non so nulla!!! HELP!

program Operazioni;
Uses Crt;
Var a,b,c:real;
d:integer;
begin
clrscr;
write('Inserire un numero reale: ');
readln(a);
write('Inserire un altro numero reale: ');
readln(b);
writeln('Premere 1 per eseguire la somma dei due numeri, Premere 2 per eseguire la differenza dei due numeri, Premere 3 per eseguire la moltiplicazione dei due numeri,Premere 4 per eseguire la divisione dei due numeri');
write('Scegliere l''operazione da effettuare: ');
readln(d);
case d of
1: c:=a+b;
writeln('Il risultato della somma è: ',c);
2: c:=a-b;
writeln('Il risultato della sottrazione è: ',c);
3: c:=a*b;
writeln('Il risultato della moltiplicazione è: ',c);
4: c:=a/b;
writeln('Il risultato della divisione è: ',c);
else
writeln('Selezionare SOLO una delle quattro opzioni');
end;
readln
end.

AIUTATEMI!!! Grazie

è una sciochezza hai dimenticato dei begin-end;

ecco la risoluzione

Program Operazioni;
Uses Crt;
Var a,b,c:real;
    d:integer;
begin
  clrscr;
  write('Inserire un numero reale: ');
  readln(a);
  write('Inserire un altro numero reale: ');
  readln(b);
  writeln('Premere 1 per eseguire la somma dei due numeri, Premere 2 per eseguire la differenza dei due numeri, Premere 3 per eseguire la moltiplicazione dei due numeri,Premere 4 per eseguire la divisione dei due numeri');
  write('Scegliere l''operazione da effettuare: ');
readln(d);
case d of
1: 
begin
 c:=a+b;
 writeln('Il risultato della somma è: ',c:0:2);
end;
2: 
begin
 c:=a-b;
 writeln('Il risultato della sottrazione è: ',c:0:2);
end;
3:
begin 
 c:=a*b;
 writeln('Il risultato della moltiplicazione è: ',c:0:2);
end;
4: 
begin
 c:=a/b;
 writeln('Il risultato della divisione è: ',c:0:2);
end;
else
  writeln('Selezionare SOLO una delle quattro opzioni');
end;
readln;
end.

tutto qui .