[BDWONG]

Hola puedes hacer una función que pida por parámetro un booleano y retorne SI o NO

Código Delphi [-]
function BoolToStr(v:Boolean):string;
begin
  if v then Result:='SI'
  else Result:='N0';
end;

begin
   Writeln(BoolToStr(FALSE));
   Writeln(BoolToStr(TRUE));
   Readln;
end.