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.