Найти ошибку[Delphi]

[MariaD]

дан круг и ромб.если пересекаются, то проверить на вложенность и концентричность.программа не задерживается на результате, хотя есть readln; в конце. не могу найти ошибку

program Project2;
{$APPTYPE CONSOLE}
uses
  SysUtils;

var r,x0:real;
    a,b,a0: real;
begin
  Writeln('Krug i romb');
  Writeln('Vvod radiusa i centra kruga');
  readln(r,x0);
  Writeln('Vvod poludiagonalei i centra romba');
  readln(a,b,a0);

  if (r>0) and (a>0) and (b>0) then
    if abs(x0-a0)<r+a then begin
    Writeln('Figuri peresekautsya');
      if x0=a0 then  Writeln('koncetricheskie')
      else Writeln('ne koncetricheskie');
       if b<=Sqrt(Sqr(r)-sqr(a0)) then
        Writeln('romb vlogen v krug')
        else writeln('Figuri ne vlojeni');
      end
    else Writeln('Figuri ne peresekautsya')
  else Writeln('Vhodnie danie ne vernie');

  Writeln('End program');
  Readln;
end.

[GetMax]

Проверил. В целом программа работает без ошибок(в логику работы не вникал). Однако могут вылетать Exception на строке

b<=Sqrt(Sqr(r)-sqr(a0)

Советую заранее проверять возможность существования квадратного корня.