Problema Con Un Programa

[michaeldeleon]

Tengo que hacer un programa que calcule y me imprima un listado de la forma siguiente nombre, sueldo y comision dice que si el sueldo bruto es menor 20000 debe pagar un 2%, si es mayor que 20,000 y menor que 30,000 debe pagar un 12% y que si es mayor debe pagar un 22.5% de su sueldo entonce quiero que me de el sueldo neto que lo imprima que seria igual a Sueldo+Comision-por ciento a pagar= sueldo neto. ayúdenme por favor esto es lo que tengo hasta el momento:

Código Delphi [-]
var
b,c,a: integer;
begin
 a:= strtoint(edit2.Text);
 b:= strtoint(edit3.Text);
 c:=a+b; if a+b < 20000 then a+b*0.20
edit4.Text := inttostr (c);