Помогите решить проблему с Pascal

Question

Вот код:
program troll;
var
a, b: real;
i: char;
c, d, o: string;
begin
writeln('Как вас зовут?');
readln(c);
writeln('Неважно');
writeln('КАЛЬКУЛЯТОР: Введите первое чило');
readln(a);
writeln('КАЛЬКУЛЯТОР: Введите второе чило');
readln(b);
writeln('КАЛЬКУЛЯТОР: Какое действие вы хотите сделать с 2-мя числами: +, -*, /, корень из числа a, a в квадрате, корень из числа b, b в квадрате');
readln(o);
if o = '+' '-' '*' '/' then
o := i
else
o := d;
if i = '+' then
writeln('Ответ: ', a+b);
if i = '-' then
writeln('Ответ: ', a-b);
if i = '*' then
writeln('Ответ: ', a*b);
if i = '/' then
writeln('Ответ: ', a/b);
if d = 'корень из числа a' then
writeln('Ответ: ', sqrt(a));
if d = 'корень из числа b' then
writeln('Ответ: ', sqrt(b));
if d = 'a в квадрате' then
writeln('Ответ: ', sqr(a)); 
if d = 'b в квадрате' then
writeln('Ответ: ', sqr(b)); 
end.
Не хочет выполнять действия. Подскажите, что и как неправильно.
Ошибку понял, помогите воплотить идею (Калькулятора) в правильный код.

just_me_257 · Accepted Answer

program troll;
var
a, b: real;
res: integer;
begin
cls;
writeln('Как вас зовут?');
readln();
writeln('Неважно');
writeln('КАЛЬКУЛЯТОР: Введите первое чило');
readln(a);
writeln('КАЛЬКУЛЯТОР: Введите второе чило');
readln(b);
writeln('КАЛЬКУЛЯТОР: Какое действие вы хотите сделать с 2-мя числами:');
writeln('1: +');
writeln('2: -');
writeln('3: *');
writeln('4: /');
writeln('5: корень из числа a');
writeln('6: a в квадрате');
writeln('7: корень из числа b');
writeln('8: b в квадрате');
readln(res);
case res of
1: writeln('Ответ: ', a + b);
2: writeln('Ответ: ', a - b);
3: writeln('Ответ: ', a * b);
4: writeln('Ответ: ', a / b);
5: writeln('Ответ: ', sqrt(a));
6: writeln('Ответ: ', sqr(a));
7: writeln('Ответ: ', sqrt(b));
8: writeln('Ответ: ', sqr(b));
end;
end.