Нужен калькулятор в free pascal на + - * / и чтобы при делении 0 было написано 'Немогу делить на 0'

Var a, b, c:real;

znak:char;

begin

writeln ('Введите первое число') ;

read (a) ;

writeln ('Введите второе число') ;

read (b) ;

write ('Введите знак:') ;

readln;

read (znak) ;

writeln;

case znak of

'+': c:=a+b;

'-': c:=a-b;

'/': c:=a/b;

'*': c:=a*b;

end;

if (b=0) then writeln ('Не могу делить на ноль') else

writeln ('Получаем в ответ:', c:0:4) ;

end.