Fixed problems related to Boolean-comparsion

There was an issue related to comparison of boolean:

var
x,y:Boolean;
begin
x := 1;
y := 255;

WriteLn(x); //Gives True
WriteLn(y); //Gives True
WriteLn(x=y); //Gives False
end.