Фигуры эллипс и квадрат

program z4;
uses
  SysUtils;
VAR
  a,b,x0,r,a0,c,y,x,x11,x12,x21,x22: Real;
BEGIN
//Vvod znachenii:
  Writeln('Vvod storoni kvadrata:');
  Write('a=');Readln(a);
  While a<0 do
  Begin
   Writeln('Storona kvadrata ne mojet bit otricatelnim');
   Writeln('Vvod storoni kvadrata:');
   Write('a=');Readln(a);
  End;
  Writeln('Vvod koordinati centra osnovaniya kradrata po osi OX:');
  write('x=');Readln(x0);
  Writeln('Vvod visoti ot centra elepsa:');
  Write('b=');Readln(b);
  While b<0 do
  Begin
   Writeln('Visota elepsa ne mojet bit otricatelnim');
   Writeln('Vvod visoti ot centra elepsa:');
   Write('b=');Readln(b);
  End;
  Writeln('Vvod shirini ot centra elepsa:');
  Write('c=');Readln(c);
  While c<0 do
  Begin
   Writeln('Visot elepsa ne mojet bit otricatelnim');
   Writeln('Vvod shirini ot centra elepsa:');
   Write('c=');Readln(c);
  End;
  Writeln('Vvod koordinati centra elepsa:');
  Write('x=');Readln(a0);
//Opredelenie vzaimnogo raspolojeniya:
  If abs(x0-a0) < (c+a) then
  Begin
// y-koordinata y elepsisa v krainei tochke storoni kvadrata, x- koordinata krainei tochki elepsa
  if (x0+a/2)>a0 then
   x:=x0+a
  else
  if (x0-a/2)<a0 then
   x:=x0-a/2;
   y:=b*sqrt(abs(c*c-x*a0))/a;
 
   x11:=c+a0;
   x12:=a0-c;
   x21:=x0+a/2;
   x22:=x0-a/2;
   If x0=a0 then
   Begin
     If (x22>x12) and (x21<x11) and(y>a) then
     Begin
     Writeln('Kvadrat vlojen v eleps');
     Writeln('Centr osnovaniya kvadrata sovpadaet s centrom elepsa')
     End
     Else
     If (x22>x12) and (x21<x11) and(y=a) then
     Begin
     Writeln('Kvadrat vloshen v elips ');
     Writeln('Centr osnovaniya Kvadrata sovpadaet s centrom elepsa');
      End
     Else
     Begin
     Writeln('Centr osnovaniya kvadrata sovpadaet s centrom elepsa');
     Writeln('Kvadrat ne vloshen v eleps');
     End;
   End
   Else
   If (x22>x12) and (x21<x11) and(y>a) then
   Begin
    Writeln('Kvadrat vloshen v eleps');
    Writeln('Centr osnovaniya kvadrata ne sovpadaet s centrom elepsa');
   End
   Else
   Begin
     Writeln('kvadrat ne vloshen v eleps');
     Writeln('Centr osnovaniya kvadrata ne sovpadaet s centrom elepsa');
   End;
  End
  Else
  Writeln('Figuri ne peresekaytcya ');
 Readln;
END.