Pascal/Turbo Pascal - Listas Pascal

uses crt;

var

	i:byte;

	n_caja,caja:array[1..5] of byte;

	ticket:array[1..5] of byte;

	n_monto,monto:array[1..5] of word;

begin

	clrscr;

	for i:=1 to 5 do begin

		writeln('Caja Nro ',i);

		caja[i]:=i;

		write('Numero de tickets vendidos: ');

		readln(ticket[i]);

		write('Monto total: ');

		readln(monto[i]);

	end;

	//mostrar los montos menores a 1000

	for i:=1 to 5 do begin

		if monto[i] < 1000 then begin

			n_caja[i]:=caja[i];

			n_monto[i]:=monto[i];

		end;

	end;

	//mostrar nueva lista

	for i:=1 to 5 do begin

		writeln('Caja Nro ',n_caja[i]);

		writeln('Monto ',n_monto[i]);

	end;

end.