PROCEDURE AnadirOrd(Ordenador:tInfo; VAR Lista:tLista);
VAR
SistOp:Char;
IP:Integer;
Busc:tLista;
Duplicado:Boolean;
BEGIN
WriteLn('Introduzca los datos del nuevo equipo: ');
WriteLn('Nombre Simbolico: ');
ReadLn(Ordenador.NombreSimb);
WriteLn('Nombre Propietario: ');
ReadLn(Ordenador.NombreProp);
WriteLn('Direccion IP: ');
ReadLn(Ordenador.DirIP);
Duplicado:=ExisteOrdenador(Lista,Ordenador.DirIP);
IF (Duplicado) THEN
BEGIN
WriteLn('La Direccion IP ya existe');
ReadLn;
END
ELSE
BEGIN
InserOrdenC (Ordenador,Lista);
WriteLn('Ordenador insertado');
ReadLn;
END
END;