Задача для среды Паскаль

Господа, подсобите с решением такой задачки: нужно создать программу, в которую вводится два числа и знак арифметического выражения (+,-,*,/) и она выводит результат.
Я набросал свой вариант, но она не работает:
Uses crt;
Var x,y,q,w:integer; z:char;
Begin
clrscr;
write('x=');
readln(x);
write('y=');
readln(y);
repeat
Clrscr;
writeln('- Type + for x+y');
writeln('- Type - for x-y');
writeln('- Type * for x*y');
writeln('- Type / for x/y');
readln(z);
q:=ord(z);
case q of
43: w:=x+y;
45: w:=x-y;
42: w:=x*y;
47: w:=x/y;
end
writeln('Result:'w);
End.
В частности, не могу понять как правильно выполнить переход от введенного символа к операциям и как правильно составить кейс.

Буду очень признателен за помощь и наставление.

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.