[Resolvido] Pascal

O código abaixo possui um erro que não consigo identificar :( depois que você digita a opção desejada ele pede a temperatura para ser convertida, porem depois de você digitar ele nao exibe a resposta.

alguem sabe onde se encontra o erro?:

Program ConverteCelciusFarenheit;
var celcius,farenheit:real;
 escolha:integer;

writeln ('CONVERSOR DE GRAUS');
writeln ('1 - De Celsius para Farenheit');
writeln ('2 - De Farenheit para Celsius');
writeln ('3 - Sair do programa');
writeln ('Escolha uma Opção:');
readln(escolha);

case (escolha) of

 1:writeln('Digite A Temperatura em Celsius: ');
 1:readln(celcius);
 1:farenheit := (celcius*1.8)+32;
 1:writeln (farenheit);

2:writeln('Digite A Temperatura em Farenheit: ');
 2:readln(farenheit);
 2:celcius := (farenheit -32)/1.8;
 2:writeln(celcius);

3:ClrScr;

 end;

End.