title: Illegal Expression's Pascal (New Errors)
body: <pre><code>Program PaidUp;
  
  const
  size=30;
  
  var
    payment,totm1,totm2,totm3:real;
    section1,section2,section3,i,j,idnum:integer;
    IDNUMARR:array[1..999] of integer;
    PAYMENTARR:array[1..size] of real;
  
  
  Procedure InitialiseVariables;
  {This procedure initialises all variables used in the program}
  Begin
    idnum:=0;
    payment:=0;
    totm1:=0;
    totm2:=0;
    totm3:=0;
    section1:=0;
    section2:=0;
    section3:=0;
    i:=0;
    j:=0;
   End; {Initialise Variables}
  
  Procedure DeclareandInitialiseArrays;
  {This procedure declares and initialises all arrays used in the program}
    Begin
       For i:=1 to size do
           begin
                IDNUMARR[i]:=0;
                PAYMENTARR[i]:=0;
           end; {ends for statment}
  End; {Declare and Initialise Variables}
  
  Procedure PutDataIntoArray;
  {This procedure puts the data into the arrays}
  Begin
    while(idnum&lt;&gt;0) and (payment&lt;&gt;0) and (payment=1350) and (payment=1620) and            (payment=1800) and (payment=1650) and (payment=1980) and (payment=2200) do
           begin
                writeln('Invalid value, please enter another value');
                readln(idnum);
                readln(payment);
           end;{ends while statement}
                j:=j+1;
                IDNUMARR[j]:=idnum;
                PAYMENTARR[j]:=payment;
  End; {Put Data Into Array}
  
  Procedure DetermineStatisticsInformation;
  {This procedure determines which masqueraders belong to which group, tallys the total persons in a section and totals the amount of money paid in each section for costumes}
   Begin
    For j:=1 to size do
           begin
                if(PAYMENTARR[j]=1350) and (PAYMENTARR[j]=1650) then
                    begin
                         writeln('Masquerader with memid:idnum[j] belongs to section1');
                         section1:= section1+1;
                         totm1:= totm1+PAYMENTARR[j];
                    end;{ends if statement}
                if(PAYMENTARR[j]=1620) and (PAYMENTARR[j]=1980) then
                    begin
                         writeln('Masquerader with memid:idnum[j] belongs to section2');
                         section2:= section2+1;
                         totm2:=totm2+PAYMENTARR[j];
                    end;{ends if statement}
                if(PAYMENTARR[j]=1800) and (PAYMENTARR[j]=2200)then
                    begin
                         writeln('Masquerader with memid:idnum[j] belongs to section3');
                         section3:= section3+1;
                         totm3:=totm3+PAYMENTARR[j];
                    end;{ends if statement}
  End; {Determine Statistics Information}
  
  Procedure PrintResults;
  {This procedure outputs all information}
  Begin
    writeln('The number of masqueraders in section 1 is:', section1);
    writeln('The number of masqueraders in section 2 is:', section2);
    writeln('The number of masqueraders in section 3 is:', section3);
    writeln('Total Amount of money paid in section 1 is:', totm1);
    writeln('Total Amount of money paid in section 2 is:', totm2);
    writeln('Total Amount of money paid in section 3 is:', totm3);
  End. {Print Results}
  </code></pre>
  
  <p>The errors i got were: 77 / 11 paidup.pas Error: Illegal expression
                         77 / 11 paidup.pas Error: Illegal expression
                         77 / 11 paidup.pas Fatal: Syntax error, ; expected but identifier PRINTRESULTS found</p>