Что не так в программе?

[vadiprog]

uses
SysUtils,
math;
var G,A,B,C,min,max:real;
begin
A:=-1;
B:=1;
C:=0.1;
min:=tan(sqrt(A))+A;
max:=tan(sqrt(A))+A;
while (A<=B) do
begin
if (A<(-1)) then
G:=tan(sqrt(A))+A
else
if ((A<1) or (A=1)) then
G:=sqrt(abs(A+cos(A-1)*cos(A-1)))
else
G:=sin(abs(A-exp(A)));
writeln('X=',A:8:8,' f(X)=',G:8:8);
A:=A+C;
if (min>G) then min:=G else
if (max<G) then max:=G;
end;
writeln('Maksimalne: ', max:8:8,' Minimalne: ',min:8:8);
readln;
end.



При запуске программы появляется чёрное окошко и тутже пропадет....

[Step_UA]

корень квадратный из отрицательного числа не существует

A:=-1;
. . . sqrt(A)