Pascal/Turbo Pascal - Programa sobre listado con los datos personales.

uses crt;

const

	total = 1000;

	factual = 31012017;

type

	empleados = record

		cedula:string;

		nombApellido:string;

		fechaNac:longint;

		sueldo:word;

		edadEmp:byte;

	end;

var

	listado:array[1..total] of empleados;

	i,j,f:integer;

	seguir:char;

begin

	clrscr;

	i:=1;

	{-------Ingreso de datos-------}

	repeat

		with listado[i] do begin

			write('Cedula de Identidad: ');

			readln(cedula);

			write('Nombre y Apellido: ');

			readln(nombApellido);

			write('Fecha de Nacimiento (ddmmaaaa): ');

			readln(fechaNac);

			write('Sueldo: ');

			readln(sueldo);

			edadEmp := (factual mod 10000) - (fechaNac mod 10000);

			write('Registrar otro empleado [s/n]: ');

			readln(seguir);

			if seguir = 's' then begin

				writeln('Registro añadido exitosamente');

				inc(i);

			end;

			writeln;

		end;

	until seguir = 'n';

	{-------Mostrar datos--------}

	clrscr;

	f:=4;

	writeln;

	gotoxy(30,1); writeln('Listado de empleados');

	gotoxy(1,3); writeln('N° de Cedula'); gotoxy(20,3); writeln('Nombre y Apellido');

	gotoxy(45,3); writeln('Edad'); gotoxy(55,3); writeln('Categoria');

	for j:=1 to i do begin

		with listado[j] do begin

			gotoxy(1,f); writeln(cedula); gotoxy(20,f); writeln(nombApellido);

			gotoxy(45,f); writeln(edadEmp);

			case sueldo of

				1000..2000 :

					begin

						gotoxy(59,f); writeln('1');

					end;

				2001..2500 :

					begin

						gotoxy(59,f); writeln('2');

					end;

				2501..3000 :

					begin

						gotoxy(59,f); writeln('3');

					end;

			end; {end-case}

		end; {end-with}

		inc(f);

	end; {end-for}

end.