PROGRAM bladerunner(input,output);

CONST
	c=2;
TYPE
	tandroid=record
		numserie:integer;
		anofabricacion:integer;
		sexo:string(6);
		planetafab:string(20);
		planetavis:array[1..500] of string(20);
	END;
	tandroide=array [1..c] of tandroid;
VAR
	androide:tandroide;

{**********************************************************************************************************************************}

PROCEDURE insertar(VAR androide:tandroide);
CONST
	c=2;
VAR
	n,i,numplanetas:integer;
BEGIN
	FOR n:=1 to 2 DO
		BEGIN
			writeln('** Escriba usted el número de serie del androide ',n,':');
			readln(androide[n].numserie);
			writeln('-- Acaba usted de insertar el número ',androide[n].numserie:2'.');
			writeln('** Escriba usted el año de fabricación del androide ',n':');
			readln(androide[n].anofabricacion);
			writeln('-- Acaba usted de insertar el año ',androide[n].anofabricacion:2,'.');
			writeln('** Escriba usted el sexo del androide ',n,'.');
			readln(androide[n].sexo);
			writeln('-- Acaba usted de insertar el sexo ',androide[n].sexo,'.);
			writeln('** Escriba usted el planeta de fabricacion ',n,':);
			readln(androide[n].planetafab);
			writeln('Acaba usted de insertar el año ',androide[n].planetafab,'.');
			writeln('--> Cuantos planetas ha visitado el androide ',n,'?');
			readln(numplanetas);
			for i:=1 to numplanetas DO
				BEGIN
					writeln('** Escriba usted el planeta que ha visitado su androide:');
					readln(androide[n].planetavis[i]);
					writeln('-- Su androide ha visitado ',androide[n].planetavis[i],'.');
				END;
			writeln;
		END;
END;

{**********************************************************************************************************************************}
PROCEDURE descartar(androide:tandroide);
CONST
	c=2;
VAR
	ano,n,i:integer;
	planeta:string(20);
BEGIN
	writeln('Escriba el año de fabricacion del androide a retirar :');
	readln(ano);
	writeln('Escriba usted el planeta que ha visitado:');
	readln(planeta);

	FOR n:=1 to c DO
		BEGIN
			IF androide[n].anofabricacion = ano THEN
			begin
				for i:=1 to 500 DO
				BEGIN
						IF (androide[n].planetavis[i] = planeta) THEN writeln('Retirar el androide número ',n,'.');
				end;
			END;

		END;

END;

{**********************************************************************************************************************************}

BEGIN
	insertar(androide);
	descartar(androide);
END.