Naizmenicno

PROCEDURE Naizmenicno(lista1 : brojevi; lista2 : brojevi) : brojevi;
VAR
	temp1, temp2, temp, pocetak, tmp : brojevi;
	biraj : INTEGER;
BEGIN
	temp1 := lista1;
	temp2 := lista2;
	pocetak := NIL;
	biraj := 1;
	WHILE (temp1 # NIL) OR (temp2 # NIL) DO
		IF pocetak = NIL THEN
			NEW(pocetak);
			temp := pocetak;
		ELSE
			NEW(tmp);
			temp^.veza := tmp;
			temp := tmp;
		END;
		IF biraj > 0 THEN
			IF temp1#NIL THEN
				temp^.info := temp1^.info;
				temp1 := temp1^.veza;
			END;
		ELSE
			IF temp2#NIL THEN
				temp^.info := temp2^.info;
			    temp2 := temp2^.veza;
			END;
		END;
		biraj := -biraj;

	END;

	RETURN pocetak;

END Naizmenicno;