Написать программу которая определяет число n при котором сумма не превысит величину, введённую с клавиатуры - Pascal

var
  x, a, s, k: real;
  n: integer;
 
begin
  write('x = ');
  readln(x);
  write('k = ');
  readln(k);
  x := sin(x);
  if k <= exp(x) - 1
    then begin
      n := 1;
      a := x;
      s := a;
      while (s <= k) and (a <> 0) do
        begin
          inc(n);
          a := a * x / n;
          s := s + a
        end
    end
    else a := 0;
  if a <> 0
    then write('n = ', n)
    else write('Сумма меньше k');
  readln
end.