error handling - पास्कल: असंगत प्रकार: "लंबे जीवन" की उम्मीद "सीआरएआर"



error-handling char (1)

मैं "98/39 comp1_ ~ 1.pas त्रुटि प्राप्त कर रहा हूं: त्रुटि: असंगत प्रकार:" लंबे जीवन "" CHAR "की अपेक्षा की गई। यह पंक्ति 6 ​​के विषय में है। कृपया कोई सहायता कृपया

Function RollBowlDie(VirtualDiceGame : Boolean) : Integer;
  Var
    BowlDieResult : Char;
  Begin
      If VirtualDiceGame
      Then BowlDieResult := Random(6) + 1
      Else
        Begin
        Repeat
          Writeln('Please roll the bowling die and then enter your result.');
          Writeln;
          Writeln('Enter 1 if the result is a 1');
          Writeln('Enter 2 if the result is a 2');
          Writeln('Enter 3 if the result is a 4');
          Writeln('Enter 4 if the result is a 6');
          Writeln('Enter 5 if the result is a 0');
          Writeln('Enter 6 if the result is OUT');
          Writeln;
          Write('Result: ');
          Readln(BowlDieResult);
          If not (BowlDieResult in ['1'..'6'])
          Then
              Begin
              Writeln;
              Writeln('That was not one of the allowed options. Please try agai:');
              End;
          Until BowlDieResult in ['1'..'6'];
        End;
RollBowlDie := Ord(BowlDieResult)  - Ord('0');
  End;

तो समस्या क्या है?

BowlDieResult एक char लेकिन आप इसे करने के लिए एक BowlDieResult असाइन कर रहे हैं।

मेरा पास्कल थोड़ी गड़बड़ है, लेकिन कोशिश करो

 BowlDieResult := chr(49 + Random(6));




pascal