Necesito crear una nomina??

[jeral15]

Necesito hacer una nomina,pero ya tengos los codigos para hacerlo, pero lo que necesito es que calcule la nomina de un empleado dependiendo el sueldo que tenga por ejemplo:

• para lo k ganen:100mil:

descontar
ars 2 %,afp 4%,coop 3%

• para los k ganes menos de 100 mil:

descontar
ars 4%,afp 5%,coop 6%

• para los k ganen mas de 100 mil:

descontar
afp 3%,afp 6% coop 10%

aki tengo los codigos para un solo descuento:

program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;

var
Cod: integer;
Nombre: string;
Apellido: string;
sueldo: real;
ars: real;
afp: real;
td: real;
sn: real;

begin
write('Digite el codigo : ');
readln(cod);
write('Digite el nombre : ');
readln(nombre);
write(' Digite el apellido: ');
readln(apellido);
write('Digite el sueldo: ');
readln(sueldo);
ars:= sueldo * 0.02;
afp:= sueldo * 0.03;
td:= ars + afp;
sn:= sueldo -td;
writeln('codigo......:',cod);
writeln('nombre......:',Nombre);
writeln('Apellido....:',apellido);
writeln('Sueldo......:',sueldo:8:2);
writeln('ars.........:',ars:6:2);
writeln('Afp.........:',afp:6:2);
writeln('Total desc. .:',td:7:2);
writeln('Sueldo neto. .:',sn:8:2);
readln

end.


Espero una ayuda!!!gracias..