Помогите, не пойму почему не работает

Помогите, не пойму почему не работает
Program L2V10Z17;
uses crt;
Var a,b,y,x,p:real;
begin
ClrScr;
write('a=');
readln(a);
write('b=');
readln(b);
x:=(sqr(a))+b;
writeln('x=',x);
if x<0.9 then y:=(a*x+1)
else if x>0.9 then y:=(a*x-1)
else if (a*(sqr(x)))+1<0 then y:=sqrt(a*sqr(x)+1)
else writeln('net reheniy');
end.
if y=0 then p:=a+((b)/(y))
else writeln('p,y,x net reheniy');
end.
redkey;
writeln('p=',p);
writeln('y=',y);
writeln('x=',x);
readln;
end.

  • после первого end. у тебя программа закончила работать(если это delphi как я предполагаю) и в чем заключается "не работает" не компилируется или запускается и закрывается без выполнения каких либо действий?(если будешь отвечать пиши на майл)