Laba1_1 Delphi

program Lab1_1;
{$APPTYPE CONSOLE}
uses
System.SysUtils;
const
    Theme = 'Theme: Can the circle go into the square?';
    EnterRadius = 'Enter the radius of the circle from 1 to 150';
   EnterSquare = 'Enter a size of the square`s side from 1 to 150';
   CheckZero = 'The size should be bigger then 0';
   CheckReal = 'The size must be the real value';
   Yes = 'Possible';
   No = 'Impossible';
var Radius,Square,i:real;
IsCorrect:boolean ;

begin
    IsCorrect:= False;
   Writeln(Theme);
    repeat
    try
        Writeln(EnterRadius);
        Readln(Radius);
        Writeln(EnterSquare);
        Readln(Square);
        IsCorrect:= True;
            if (0 > Radius) or (0 > Square) then
        begin
            Writeln(CheckZero);
            IsCorrect:= False;
        end;
    except
        Writeln(CheckReal);
        end;
   until IsCorrect;
   i:= Square/2;
   if (i)> Radius then
    Writeln(Yes)
   else
    Writeln(No);
   readln;
end.