Обработка ошибки

program recursy;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,
  Math;
 
var
  x:double;
  eps:double;
function ln2(Var x,eps:double;k:integer): Extended;{Функция для вычисления логарифма}
 var S: Extended;
begin
  if Power(x*k,k)<>0 then
  S:=(1/(k*(power(x,k)))){Формула вычисления логарифма}
  else S:=0;
  if abs(S)>eps then
  begin
    writeln(S:2:8);
    ln2:=S + ln2(x,eps,k+1);{Накапливание суммы в переменную result}
 
  end
  else ln2:=0;
 
end;
begin
writeln('Vvedite eps : ');
readln (eps);
writeln('Vvedite x : ');
readln (x);
writeln('ln(x/(x-1)) = ', ln2(x,eps,1):4:6);   {Пример работы программы}
writeln('Math function ln : ');
writeln((ln(x/(x-1))));
Readln;
end.

var eps,x:real;
     s:string;
     c:ibteger;
begin
repeat
writeln('Vvedite eps : ');
readln (s);
val(s,eps,c);
if c<>0 then write('Vvedite chislo');
until c=0;