Что делать? Не могу решить проблему с компиляцией проекта.

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

var n:Extended;
begin
Readln(n);
if n=1 then Writeln('YES');
Break;
repeat
n:=n/2;
if Frac(n)<>0 then Break;
until n=1;
if (n=1) then Writeln('YES')
else if (n<>1) then Writeln('NO');
end.
Вот такой вот код для такой задачи : http://informatics.mccme.ru/mod/statements/view3.php?id=18145&chapterid=3060#1.
Выдает ошикбку: [Fatal Error] Project1.dpr(19): Internal error: T2371
P.S. Delphi 7