Как сделать в Делфи так, чтобы успеть прочитать ошибку?) ) Нажимаю "запустить" и выскакивает окно с ошибкой и закрывается

program laba1;

{$APPTYPE CONSOLE}

uses

SysUtils;

var K : integer; // îïèñàíèå ïåðåìåííûõ öåëîãî òèïà

X,F,Sum : real ;

begin

X:=0.6;

While X=10 then

begin

F:= -Sum+(sin(x)/cos(x))+sqrt(exp(x)*(1/3)); //÷òî íóæíî íàéòè è âûâåñòè

Writeln('n= ',K,' x= ',X:4:2,' f= ',F:5:3); // âûâîä n,x, f ñ îïðåä. êîë-âîì ñèìâîëîâ ïîñëå çàïÿòîé

end;

end;

X:=X+0.05; //+ 1 øàã

end;

Readln;

end.