Algoritmia - algoritmo para determinar el sueldo neto para cada trabajador

uses crt;

const

	MAX = 200;

type

	trabajadores = record

		clave:integer;

		nombre:string;

		puesto:string;

		h_traba:integer;

		precio_hora:real;

	end;

var

	empleados:array[1..MAX] of trabajadores;

	i,flag,j:byte;

	total,deducciones,sueldo_neto:real;

begin

	clrscr;

	flag:=1;

	i:=1;

	total:=0;

	{captura de datos}

	writeln('Ingrese los datos de los trabajadores, para terminar teclee "0" el clave');

	writeln;

	while flag = 1 do begin

		with empleados[i] do begin

			write('Clave del trabajador: ');

			readln(clave);

			if clave = 0 then

				flag:= 0

			else begin

				write('Nombre del trabajador: ');

				readln(nombre);

				write('Puesto en el que trabaja: ');

				readln(puesto);

				write('Horas trabajadas: ');

				readln(h_traba);

				write('Precio por hora: ');

				readln(precio_hora);

				inc(i);

			end;

		end;

	end;

	{mostrar registros}

	clrscr;

	for j:=1 to i-1 do begin

		sueldo_neto:=0;

		writeln('Empleado # ',j);

		with empleados[j] do begin

			sueldo_neto:=h_traba * precio_hora;

			deducciones:=(sueldo_neto * 0.025);

			writeln('Clave        : ',clave);

			writeln('Nombre       : ',nombre);

			writeln('Puesto       : ',puesto);

			writeln('Sueldo Neto  : ',sueldo_neto:2:2);

			writeln('Deducciones  : ',deducciones:2:2);

		end;

		writeln;

	end;

	for j:=1 to i-1 do begin

		with empleados[j] do

			total:=total + (h_traba * precio_hora);

	end;

	writeln('Cantidad total para pago de sueldos: ',total:4:2);

end.