72 

    72 

    73 {$IFNDEF PAS2C}

    73 {$IFNDEF PAS2C}

    74 procedure Write(var f: textfile; s: shortstring);

    74 procedure Write(var f: textfile; s: shortstring);

    75 procedure WriteLn(var f: textfile; s: shortstring);

    75 procedure WriteLn(var f: textfile; s: shortstring);

    76 function StrLength(s: PChar): Longword;

    76 function StrLength(s: PChar): Longword;

    77 {$ENDIF}

    78 {$ENDIF}

    78 

    79 

    79 function  isPhone: Boolean; inline;

    80 function  isPhone: Boolean; inline;

    80 

    81 

    81 {$IFDEF IPHONEOS}

    82 {$IFDEF IPHONEOS}