Решить с паскаля. вычислить значения функции: z=ln(x),если x> =1; z=1,если -1

Формула несколько не совсем понятна, но если что функцию не трудно переделать

var
    x: real;

function Z(x: real): real;
begin
    if x >= 1 then
        Z := ln(x)
    else
        Z := 1;
end;

begin
    x := 1;
    writeln('z(', x, ') = ', z(x));
    
    x := -1;
    writeln('z(', x, ') = ', z(x));
    
    write('x=');
    readln(x);
    writeln('z(', x, ') = ', z(1));
end.