Переделать программу с оператором case

Program task1;
var
num: integer;
x, y: longint;
flag: byte;
begin
writeln('Введи значение x: ');
read(x);
y:=0;
flag:=0;
writeln('Выбери желаемую функцию: ');
write('1: y=x+1', #10, '2: y=x*x+1', #10, '3: y=x*x*x+1', #10);
read(num);
if num = 1 then y:=x+1;
if num = 2 then y:=x*x+1;
if num = 3 then y:=x*x*x+1;
if (num < 0) or (num > 3) or (num = 0) then flag:=1;
if (num < 0) or (num > 3) or (num = 0) then writeln('Invalid number!');
if flag = 0 then writeln('Значение функции в точке ', x, ' = ', y) else
write('Попробуйте ещё раз!');
end.

begin
  var x := ReadlnInteger('Введи значение x:');
  var y := 0; var num := 0;
  while (num <= 0) or (num > 3) do begin
    writeln('Выбери желаемую функцию: ');
    write('1: y=x+1', #10, '2: y=x*x+1', #10, '3: y=x*x*x+1', #10);
    num := ReadlnInteger;
    case num of
      1: y := x + 1;
      2: y := x * x + 1;
      3: y := x * x * x + 1;
    end;
  end;
  writeln('Значение функции в точке ', x, ' = ', y);
end.