Прoграмма через repeat...until

Помогите,пожалуйста, сделать эту програму без function
Програму должна с точностю,что вводится с клавиатуры,вычислять значения функции y=ln(1-x),(|x|<1).
Для этого используйте такую формулу:Заранее спасибо!!


program LAB7;
uses crt;
var S,x,t:real;
n:longint;

function Fun(a:real;b:integer):real;
begin
Fun:=exp(ln(abs(a))*b)/b;
if (a < 0) and (b mod 2=0) then Fun:=-exp(ln(abs(a))*b)/b;
end;

begin
clrscr;
writeln (' vvedite tochnost obchuslennya ');
readln (t);
Writeln (' vvedite X (abs(x)<1) ' );
readln (x);
n:=1;s:=0;
repeat
s:=s+fun(x,n);
inc(n);
until Fun(x,n)<=t;
writeln (' znachennya fynkcii = ',-s:10:4);
readln;
writeln (' Pidsymovano ',n,' chleniv ryady ');
readln;
end.