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

var
    x: real;

function Z(x: real): real;
begin
    if x gt;= 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.