Закрытие программы Delphi без видимых на то причин

program P413;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,
  Math;
 
function Rus(S:String):String;
var i:byte;
begin
Result:='';
for i:=1 to Length(S) do
case S[i] of
'А'..'п': Result:=Result+Chr(Ord(S[i])-64);
'р'..'я': Result:=Result+Chr(Ord(S[i])-16);
'Ё': Result:=Result+Chr(240);
'ё': Result:=Result+Chr(241);
else
Result:=Result+S[i];
end;
end;
 
 
var
 
Rs,Ymn1,Ymn2,Xmn1,Xmn2,Xn,Xk,YYY,YY,YYYY,YY1,YYY1,YYYY1,k,n,h:real;
 
 
begin
Write(rus('Введите Xn, Xk и Hx : '));Readln(Xn,Xk,h);
Writeln;
n:=Xn-h;
repeat
n:=n+h;
YYY:=Sqrt(1+9*Sqrt(sin(5*n*pi/180)))*sin(3*n*pi/180);
YYYY:=Sqrt(1+9*Sqrt(sin(5*(n+h)*pi/180)))*sin(3*(n+h)*pi/180);
YY:=Sqrt(1+9*Sqrt(sin(5*(n-h)*pi/180)))*sin(3*(n-h)*pi/180);
until (YYYY>YYY) and (YY>YYY);
 
Ymn1:=YYY;
Xmn1:=n;
Readln;ReadLn;
k:=Xk+h;
repeat
k:=k-h;
YYY1:=Sqrt(1+9*Sqrt(sin(5*(k-h)*pi/180)))*sin(3*(k-h)*pi/180);
YY1:=Sqrt(1+9*Sqrt(sin(5*(k)*pi/180)))*sin(3*(k)*pi/180);
YYYY1:=Sqrt(1+9*Sqrt(sin(5*(k+h)*pi/180)))*sin(3*(k+h)*pi/180);
until (YYYY1>YYY1) and (YY1>YYY1);
 
Ymn2:=YY1;
Xmn2:=k;
Rs:=k-n;
Writeln(rus('Координаты перв. минимума Xmn1 = '),Xmn1:6:3,'  Ymn1 = ',Ymn1:6:3);
Writeln;
Writeln(rus('Координаты посл. минимума Xmn2 = '),Xmn2:6:3,'  Ymn2 = ',Ymn2:6:3);
Writeln;
Writeln(rus('Расстояниен между точками Rs = '),Rs:6:3);
ReadLn(n);
 
end.