EJERCICIO 4TO. SECUNDARIA -CLARETIANO

program eje;
(*AUTOR: RENZO CACERES SEMINARIO
GRADO: 4TO. SECUNDARIA – COLEGIO CLARETIANO – TRUJILLO
FECHA: 12/09/2006*)
uses crt;
const nulo='';
type trabajador=record
nom,a,cod:string[30];
he:integer;
sb,sbr,phe,afp,mv,dscto,sn:real;
end;
reg1 = array [1..1000] of trabajador;
var tra:trabajador;
empleado:reg1;
sw,c,i:integer;
begin
clrscr;
writeln('AUTOR: RENZO CACERES SEMINARIO');writeln;
repeat
write('Codigo: ');readln(tra.cod);
if tra.cod<>nulo then
begin
with tra do
begin
write('Nombre: ');readln(nom);
write('Area: ');readln(a);
write('Sueldo Basico: ');readln(sb);
write('Horas Extras: ');readln(he);
c:=c+1;
empleado[c]:=tra;
clrscr;
end;
end;
until (tra.cod=nulo) or (c>=1000);
for i:=1 to c do
begin
with empleado[i] do
begin
phe:=(he*sb)/240;
sbr:=sb+phe;
afp:=0.13*sb;
mv:=0.13*sb;
dscto:=afp+mv;
sn:=sbr-dscto;
end;
end;
clrscr;
for i:=1 to c do
begin
with empleado[i] do
begin
gotoxy(2,2);write('Empleado: ',nom);
gotoxy(2,4);write('Area: ',a);
gotoxy(2,6);write('Ingresos ');
gotoxy(29,6);write('Deducciones ');
gotoxy(60,6);write('Neto ');
gotoxy(2,8);write('Sueldo Basico: ',sb:4:2);
gotoxy(30,8);write('AFP: ',afp:15:2);;
gotoxy(2,10);write('Horas Extras: ',phe:7:2);
gotoxy(30,10);write('Mi Vivienda: ',mv:7:2);
gotoxy(15,12);write(sbr:8:2);
gotoxy(45,12);write(dscto:4:2);
gotoxy(60,12);write(sn:4:2);
end;
end;
readkey;
end.