Решение нелинейного уравнения методом простых итераций: ошибка 205

Program Iterations;
 
Uses Crt, Mathlib;
 
var
 
   tau, k1, k2, k3, eps    : real;
 
   count, i               : byte;
 
   c0, ck, ck_r  : array [1..4] of real;
 
 
 
begin
 
   clrscr;
 
   write('Введите вектор начальных концентраций c0  : ');
 
   for i := 1 to 4 do Read(c0[i]); writeln;
 
   write('Введите tau, k1, k2, k3 : ');
 
   readln(tau, k1, k2, k3);
 
   write('Введите допустимую абсолютную погрешность : ');
 
   readln(eps);
 
   write('Введите вектор начальных приближений ck   : ');
 
   for i := 1 to 4 do Read(ck_r[i]);
 
   ck:=ck_r;
 
   count := 0; {Счетчик итераций}
 
   {Организация последовательных приближений}
 
   Repeat
 
      inc(count);
 
      for i := 1 to 4 do
 
         ck[i] := ck_r[i]; {Новое приближение}
 
                {Итерационные формулы}
 
      ck_r[1] := c0[1]+tau*(-k1*ck[1]*ck[2]+k2*ck[3]);
 
      ck_r[2] := c0[2]+(ck[1]-c0[1]);
 
      ck_r[3] := c0[3]+tau*(k1*ck[1]*ck[2]-k2*ck[3]-
 
                 k3*ck[3]);
 
      ck_r[4] := c0[4]+2*tau*k3*ck[3];
 
           {Условие окончания счета}
 
   until (abs(ck_r[1]-ck[1]) < eps)  and
 
         (abs(ck_r[2]-ck[2]) < eps)  and
 
         (abs(ck_r[3]-ck[3]) < eps)  and
 
         (abs(ck_r[4]-ck[4]) < eps);
 
   writeln;
 
   writeln('Результаты:');
 
   writeln('    ck_r[1]=',ck_r[1]:6:3);
 
   writeln('    ck_r[2]=',ck_r[2]:6:3);
 
   writeln('    ck_r[3]=',ck_r[3]:6:3);
 
   writeln('    ck_r[4]=',ck_r[4]:6:3);
 
   writeln('Число итераций - ',count);
 
end.