Вычислить значение выражения (переделать REPEAT в FOR)

program cvpfirst;
uses crt;
{const eps=0.000001;}
var Eps:real;
    x,s,u:real;
    n:integer;
begin
  write('Введите погрешность Eps(0.0000001): ');
  readln(eps);
  clrscr;
  repeat
    textcolor(black);
    writeln('Введите |X|<1:');
    write('X = ');
    readLn(x);
    textcolor(red);
    if abs(x)>=1 then writeln('Ошибка ввода! Введите значение меньше |1|');
    textcolor(black);
    writeln('---------------------------------------------');
  until abs(x)<1;
  s:=0;
  u:=x;
  n:=0;
  while abs(u)>eps do
   begin
    s:=s+u;
    inc(n);
    u:=u*sqr(x)*(2*n-1)*(2*n-1)/((2*n)*(2*n+1));
   end;
  textcolor(cyan);
  writeLn('   Sum=', s:0:8);
  writeLn('ArcSin=', arctan(x/sqrt(1-sqr(x))):0:8);
end.

k:=4;
eps:=0.01;
for i:=1 to k do k do
 begin
  writeln('При eps=',eps:0:10,' сумма =',Summa(x,eps):0:10);
  eps:=eps/10;
 end;

function Summa(x,eps:real):real;
var t,s:real;
    n:integer;
begin
if eps>=abs(x) then s:=x
else
 begin
  n:=0;
  t:=x;
  s:=t;
  while abs(t)/(2*n+1)>eps do
   begin
    n:=n+1;
    t:=t*x*x*(2*n-1)*2*n/(4*sqr(n));
    s:=s+t/(2*n+1);
   end;
 end;
Summa:=s;
end;
var x,eps:real;
    k,i:integer;
begin
repeat
write('|x|<1 x=');
readln(x);
until abs(x)<1;
eps:=0.01;
repeat
write('Сколько раз посчитать сумму от 1 до 9 k=');
readln(k);
until k in [1..9];
eps:=0.01;
for i:=1 to k do
 begin
  writeln('При eps=',eps:0:10,' сумма =',Summa(x,eps):0:10);
  eps:=eps/10;
 end;
write('arcsin(x)=',arctan(x/sqrt(1-x*x)):0:10);
end.