I've looked this over up and down and I honestly can't figure out what I'm doing wrong. I've fixed some errors but these are eluding me.<br /><br /><!--c1--><div class='codetop'>CODE</div><div class='codemain'><!--ec1-->Program Pay(input,output);<br /><br />const  wage=9.73;            {declares constant wage}<br />        sstax=0.06;            {declares constant sstax}<br />        fitax=0.14;            {declares constant fitax}<br />        sitax=0.05;            {declares constant sitax}<br />        utax=6;            {declares constant utax}<br /><br />var    hours,            {declares integer varible hours}<br />        dependants: integer;        {declares integer varible dependents}<br />        grosspay,            {declares real varible grosspay}<br />        netpay,            {declares real varible netpay}<br />        withholding: real;        {declares real varible withholding}<br /><br /><br />  procedure input(var hours,dependants:integer);    {establishes precedure for the input values}<br /><br />  begin<br /><br />      writeln('How many hours did you work this week?');    {asks user for hours of work}<br />      readln(hours);                    {records hours of work}<br /><br />      writeln('How many dependants do you have?');        {asks user for number of dependants}<br />      readln(dependants);                {records number of dependants}<br /><br />  end;<br /><br /><br />  procedure calculation(var hours,dependants:integer;var grosspay,netpay,withholding:real);  {establishes procedure for the calculations of pay}<br /><br />  begin  <br /><br />      if hours>40 then    {uses if statment to figure out gross pay and net pay if you worked over 40hrs}<br />        <br />        begin<br />        grosspay:= ((wage*40)+(1.5*(hours-40)))<br />        netpay:= (grosspay-(grosspay*sstax*fitax*sitax)-utax)<br />        end<br /><br />      else    {if you worked 40hrs of less}<br />        <br />        begin<br />        grosspay:= (wage*40)<br />        netpay:= (grosspay-(grosspay*sstax*fitax*sitax)-utax)<br />        end;<br />  <br />      if dependants>=3 then    {changes netpay if you have more than three dependants}<br />        <br />        netpay:=grosspay-10;      <br /><br />  withholding:=netpay-grosspay;    {calculates the difference between gross pay and net pay}<br />  <br />  end;<br /><br />  <br />  procedure output(grosspay,netpay,withholding:real);    {establishes procedure to output the findings}<br /><br />  begin<br /><br />      writeln('Your gross pay for the week is ',grosspay);    {outputs the gross pay}<br />      writeln('Your net pay for the week is ', netpay);        {outputs the net pay}<br />      writeln('Your weeks withholding is' ,withholding);        {outputs the withholding}<br /><br />  end;<br /><br />Begin        {MAIN PROGRAM}<br /><br />  input(hours,dependants);                {calls input procedure}<br />  calculation(hours,dependants,grosspay,netpay,withholding);    {calls calculation procedure}<br />  output(grosspay,netpay,withholding);            {calls the output procedure}<br /><br />End.<!--c2--></div><!--ec2--><br />I'll prolly kick myself when I figure it out.
</div>
</div>