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

Формулировка задачи:

Задача:

Нужно чтобы было кол-во сумм - указанное кол-во раз. Выходит, что нужно поменять цикл 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.

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

Листинг программы

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;

Объяснение кода листинга программы

Переменная k инициализируется значением 4.
Переменная eps инициализируется значением 0.01.
Запускается цикл for, который выполняется от 1 до k (индекс переменной i).
Внутри цикла выводится сообщение с значениями переменных eps и Summa(x,eps), где x - неизвестная переменная, значение которой передается функции Summa.
После завершения внутреннего цикла значение переменной eps уменьшается в 10 раз.