Im Getting an Error:Illegal Expression : im still kinda new to pascal but im getting an error thats torturing me a bit can u guys help? i get a error:illegal expression and Fatal: Syntax error, ; expected but : found

The Pascal Piece is below:

    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
          IDNUMARR:array[1..999] of integer;
          PAYMENTARR:array[1..size] of real;
             For i:=1 to size do
                 begin
                  idnum[i]:=0;
                  payment[i]:=0;
             end; {ends for statment}
    End; {Declare and Initialise Variables}

    Procedure PutDataIntoArray;
    {This procedure puts the data into the arrays}
       Begin
      while(idnum<>0 and payment<>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}
                  set j:=j+1;
                  idnum[j]:=idnum;
                  payment[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(payment[j]=1350 and payment[j]=1650) then
                      begin
                           writeln('Masquerader with memid:idnum[j] belongs to  section1');
                           section1:= section1+1;
                           totm1:= totm1+payment[j];
                      end;{ends if statement}
                  if(payment[j]=1620 and payment[j]=1980) then
                      begin
                           writeln('Masquerader with memid:idnum[j] belongs to section2');
                           section2:= section2+1;
                           totm2:=totm2+payment[j];
                      end;{ends if statement}
                  if(payment[j]=1800 and payment[j]=2200)then
                      begin
                           writeln('Masquerader with memid:idnum[j] belongs to section3');
                           section3:= section3+1;
                           totm3:=totm3+payment[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}
