Алгоритм для вычисления значений функции f(x) при любых значениях аргументов - Pascal ABC

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

Что я делаю не так?

VAR G,X,F,H:REAL;
    BEGIN
         WRITE('Ввести X=');
              READLN(X);
                         if(x<0)THEN
                         F:=G;
                         if(x>1)THEN
                         G:=2*X+1
                         else
                         G:=5*x;
 
                         if (x<5)THEN
                         H:=10*x-1
                         else
                         H:=x+1;
         WRITE('ВЫВОД F=');
       WRITE(F:2:1);
       READLN;
    END.

при значениях функций:

Решение задачи: «Алгоритм для вычисления значений функции f(x) при любых значениях аргументов»

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

var x, g, h, f: double;
begin
  write('x = ');
  readln(x);
  if x > 1
    then g := 2 * x + 1
    else g := 5 * x;
  if x < 5
    then h := 10 * x - 1
    else h := x + 1;
  if x < 0
    then f := g
    else f := h;
  write('f(x) = ', f);
  readln
end.

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

Создается переменная x типа double и инициализируется значением, которое вводит пользователь.
Вычисляется значение переменной g типа double. Если значение x больше 1, то g устанавливается равным 2x+1, иначе g устанавливается равным 5x.
Вычисляется значение переменной h типа double. Если значение x меньше 5, то h устанавливается равным 10*x-1, иначе h устанавливается равным x+1.
Вычисляется значение переменной f типа double. Если значение x меньше 0, то f устанавливается равным g, иначе f устанавливается равным h.
Значение переменной f выводится на экран с помощью функции write.
Считывается ввод пользователя с помощью функции readln.