Правильно составить условие if then - Turbo Pascal

Формулировка задачи:

Привет! Помогите задать значение для then ,то есть я хочу когда пишешь (-) оно отнимало если (+) соответственно прибавляло, вот что у меня есть

 Begin
  Write('Vvedite znak (+) - plus (-) - minus');
    if read('+') then j:=(x+y);
      if read('-') then j:=(x-y);
  Write('Vvedite dva 4isla');
  read(x);
  read(y);
  Write ('rovno=' j);
readkey;
end.

Решение задачи: «Правильно составить условие if then»

Листинг программы

var znak : char;
........................
 
 repeat
   Write('Vvedite znak (+) - plus (-) - minus');
   ReadLn(znak); 
 until (znak='-') or (znak='+');
 Write('Vvedite dva 4isla: ');
 ReadLn(x, y);
 if znak='+' then j:=x+y;
 if znak='-' then j:=(x-y);
 WriteLn('rezultat raven ', j);
 readkey;

Объяснение кода листинга программы

Переменная znak типа char, используется для считывания символа из ввода пользователя.
Цикл repeat-until используется для чтения символа до тех пор, пока не будет введен символ - или +.
В каждой итерации цикла выводится сообщение с предложением для ввода.
После ввода символа считывается следующий символ.
Если введенный символ равен +, то переменная j присваивается сумме переменных x и y.
Если введенный символ равен -, то переменная j присваивается разности переменных x и y.
Выводится результат вычисления j.
Считывается символ, пока не будет введен символ Enter.