(Pascal) problema con read (char )

[darkmasterr]

prueba asi:

Código:

program Calculadora;
USES CRT;

var
num1,num2:real;
car:char;
begin
ClrScr;
car:='0';
writeln ('Ingrese el primer numero del calculo');
readln (num1);

writeln ('Teclee un caracter');
read (car);

writeln ('Ingrese el segundo numero del calculo');
read (num2);

case (car) of

'+' : write (num1 + num2);
'-' : write (num1 - num2);
'*' : write (num1 * num2);
'/' : write (num1 / num2);

else
write ('error');


end;
end.

ojala te sirva