lab3(delphi)

Program lab3;
{$APPTYPE CONSOLE}
{$R *.res}
uses
    System.SysUtils;
var X, Y, Yi, EPS: Double;
    i: Integer;
    IsCorrect: Boolean;
begin
    Writeln('Введите EPS: ');
    repeat
        IsCorrect := True;
        try
            Readln(EPS);
        except
            IsCorrect := False;
            Writeln('Eps введено некорректно!!!' + #13#10 + 'Введите EPS:');
        end;
        if IsCorrect and (EPS <= 0) or (EPS >= 1) then
        begin
            IsCorrect := False;
            Writeln('Заданное число не может являться EPS!!!' + #13#10 + '
                     Введите EPS(число от нуля до единицы):');
        end;
    until IsCorrect;
    Writeln('Введите X: ');
    repeat
        IsCorrect := True;
        try
            Readln(X);
        except
            IsCorrect := False;
            Writeln('X введён не корректно!!!' + #13#10 + 'Введите X: ');
        end;
    until IsCorrect;
    Yi := 1;
    i := 0;
    repeat
        i := i + 1;
        y := yi;
        if y <> 0 then
            yi := 1 / 3 * (2 * y + x / y / y);
    until abs(y - yi) < EPS;
    if y = 0 then
        Write('Ошибка!!!' + #13#10 + 'В ходе программы произошло деление на 0.')
    else
        Write('Корень кубический из х = ', yi:10:8, '; Количество итераций: ', i, '.');
    Readln;
end.