Для произвольного значения аргумента «x» (по модулю больше 1) вычислить сумму: S = 1 + 1/x + 1/x^2 + 1/x^3 + … . Вычисления продолжать до тех пор, пока очередное слагаемое больше заданного значения Z. Вывести на экран число слагаемых K — Pascal(Паскаль)

uses crt;
var x,s,t,z:real;
    k:integer;
begin
clrscr;
repeat
write('Введите |x|>1 x=');
readln(x);
until abs(x)>1;
repeat
write('Введите точность вычислений (0,1) z=');
readln(z);
until(z>0)and(z<1);
s:=1;
t:=1;
k:=1;
while abs(t)>z do
 begin
  t:=t/x;
  k:=k+1;
  s:=s+t;
 end;
write('S=',s:0:6,'  k=',k);
readln
end.