unit ip2;
interface
(* ----------------------------------------------------------------*)
type
    ip_type = record
               ip:string;
               port:string;
            end;
(* ----------------------------------------------------------------*)
procedure ip_insert_s(var ipp:ip_type; ip:string; port:string);
(* ip_insert_s(ip,ips,port); *)
procedure ip_print((*-->*)var(*<--*) ipp:ip_type);
(* ip_print(ip); *)
(* ----------------------------------------------------------------*)
implementation
procedure ip_insert_s(var ipp:ip_type; ip:string; port:string);
       begin
            ipp.ip:=ip;
            ipp.port:=port;
       end;
                         
procedure ip_print((*-->*)var(*<--*) ipp:ip_type);
       begin
            writeln(ipp.ip,':',ipp.port);
       end;
begin
end.