Выполнить заданную арифметическую операцию с двумя числами (программа Паскаль)

program z2;
uses crt;
var op:char;
a,b,s:real;
begin
write('введи числа '); readln(a,b);
 write('введи знак операции '); readln(op);
 case op of
 '+': s:=a+b;
 '-': s:=a-b;
 '*': s:=a*b;
 '/': s:=a/b;
 end;
  write(a, op, b,'=',s);
  end