Написать калькулятор на паскале

Не знаю правельно либо нет
Program Calculator;
var 
a,c: real;
b: char;
begin
write('Введите первое число : ');
readln(a);
write('Введите деяния с числами : ');
readln(b);
write('Введите второе число : ');
readln(c);
case b of
'+':a:=a+c;
'-':a:=a-c;
'/':a:=a/c;
'*':a:=a*c;
else
write('Вы водили не правельное деяние!!!')
end;
write('Итог : ',a:6:2 )
end.