Ввести число. По выбору пользователя найти его противоположное, вычесть из него это же число, уменьшенное вдвое, или найти обратное число - PascalABC.NET

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

var n: integer;
    
begin
 
Writeln('Vvedit chislo ');
Readln(n);
case n of
'n<0'  : n:=n*(-1); 
'n>0'  : n:=n-n/2; 
'n>=23'  : n:=n/1; 
else  writeln('ne hochu');
end;
writeln(n);
end.

помогите, что не так

Решение задачи: «Ввести число. По выбору пользователя найти его противоположное, вычесть из него это же число, уменьшенное вдвое, или найти обратное число»

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

var f: integer;n, res: real;
 
 begin
 
  Write('Введите число: ');
  Readln(n);
  writeln('Введите 0, чтобы найти противоположное число.');
  writeln('Введите 1, чтобы вычесть из него это же число, уменьшенное вдвое.');
  writeln('Введите 2, чтобы найти обратное число.');
  readln(f);
  case f of
  0: res:= -n;
  1: res:= n - (n/2);
  2: res:= 1/n;
  end;
  writeln(res:6:5);
  readln;
 end.

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

Импортируются необходимые модули
Задаются типы переменных и их инициализация
Выводится приглашение для ввода числа
Происходит считывание числа из консоли
Выводится приглашение для выбора операции
Считывается выбор операции из консоли
Происходит проверка выбранной операции
Если выбрано найти противоположное число, то противоположное число вычисляется и сохраняется в переменной res
Если выбрано вычесть из числа это же число, уменьшенное вдвое, то вычисляется половина числа, вычитается из него само число и результат сохраняется в переменной res
Если выбрано найти обратное число, то вычисляется обратное число и сохраняется в переменной res
Выводится результат на экран
Завершается работа программы