Pascal/Turbo Pascal - cual es el error de este prog???

Por favor necesito que me ayuden con este programa ya que no encuentro su error y tengo que entregarlo mañana.
gracias.

program problema46(input, output);

var
ing, porc, imp:integer;

begin
writeln('**Calcular el impuesto respecto del ingreso**');
imp:=ing*porc;
writeln('registre su ingreso');readln (ing);
If (ing<=10000) then
porc:=0;
writeln(ing,'tendra un impuesto de,'
imp);
if (ing<=30000) then
porc:=10
writeln(ing,' tendra un impuesto de,'imp);
if (ing<50000) then
porc:=20 ;
writeln(ing,'tendra un impuesto de,'imp);
if (ing>50000) then
porc:=35;
writeln ( ing,'tendra un impuesto de,'imp);
writeln;writeln('**FIN**')

end.

program problema46(input, output);

var
ing, porc, imp:integer;

begin
writeln('**Calcular el impuesto respecto del ingreso**');
imp:=ing*porc; <----------- Qué valores tienen ing y proc aquí????
writeln('registre su ingreso');readln (ing);
If (ing<=10000) then
porc:=0;
writeln(ing,'tendra un impuesto de,'
imp);
if (ing<=30000) then
porc:=10 <------------------- Falta ; (punto y coma)
writeln(ing,' tendra un impuesto de,'imp);
if (ing < 50000) then
porc:=20 ;
writeln(ing,'tendra un impuesto de,'imp);
if (ing > 50000) then
porc:=35;
writeln ( ing,'tendra un impuesto de,'imp);
writeln;writeln('**FIN**')

end.

Te falta considerar cuando ing = 50000

program problema46(input, output);

var
ing, porc, imp:integer;

begin
writeln('**Calcular el impuesto respecto del ingreso**');
imp:=ing*porc;
writeln('registre su ingreso');readln (ing);
If (ing<=10000) then
porc:=0;
writeln(ing,'tendra un impuesto de,'
imp);
if (ing<=30000) then
porc:=10
writeln(ing,' tendra un impuesto de,'imp);
if (ing<50000) then
porc:=20 ;
writeln(ing,'tendra un impuesto de,'imp);
if (ing>50000) then
porc:=35;
writeln ( ing,'tendra un impuesto de,'imp);
writeln;writeln('**FIN**')

end.

Disculpa por la respuesta anterior. Se me arrancó la tecla [ENTER]. He mvido la orden "imp:=ing*porc;"

program problema46(input, output);

var
ing, porc, imp:integer;

begin
writeln('**Calcular el impuesto respecto del ingreso**');
writeln('registre su ingreso');readln (ing);
If (ing<=10000) then
porc:=0;
imp:=ing*porc;
writeln(ing,'tendra un impuesto de,'
imp);
if (ing<=30000) then
porc:=10;
imp:=ing*porc;
writeln(ing,' tendra un impuesto de,'imp);
if (ing<50000) then
porc:=20 ;
imp:=ing*porc;
writeln(ing,'tendra un impuesto de,'imp);
if (ing>50000) then
porc:=35;
imp:=ing*porc;
writeln ( ing,'tendra un impuesto de,'imp);
writeln;writeln('**FIN**')

end.

Cada vez que cambias el valor de "porc" debes recalcular "imp". Saludos ;-)