Протабулировать функцию

program xxx22;
uses crt;
var x,xn,xk,dx,z:real; i:integer;
begin
clrscr;
writeln ('Введите xn,xk,dx');
readln (xn,xk,dx);
{вывод заголовка таблицы}
writeln ('':6,'funktion z');
writeln ('|     x    |       z      |');
for i:=1 to 27 do write ('-'); writeln;x:=xn;
while x<=xk  do
begin
   if x>5 then z:=
    else if (x<=5) then z:=
         else z:=;
   writeln ('|',x:10:3,'|',z:10:3,'    |');
   x:=x+dx
end;
{вывод низа таблицы}
for i:=1 to 27 do write ('-');
end.

uses crt;
var x,xn,xk,dx,z:real; i:integer;
begin
clrscr;
repeat
writeln('Введите границы мнтервала xn<xk');
readln(xn,xk);
until xk>xn;
repeat
write('Введите  шаг табуляции 0<dx<',xk-xn:0:2,' dx=');
readln(dx);
until (dx>0)and(dx<xk-xn);
clrscr;
{вывод заголовка таблицы}
writeln(' ':8,'funktion z');
writeln('---------------------------');
writeln('|     x    |       z      |');
writeln('---------------------------');
x:=xn;
while x<=xk  do
 begin
  if x>5 then z:=ln(sqrt(x))+2/x
  else if (x<=5)and(x>0) then z:=arcsin(x-5)
  else z:=sqrt(abs(x*x-10));
  writeln ('|',x:10:3,'|',z:10:3,'    |');
  x:=x+dx
 end;
writeln('----------------------------'); 
end.