Use a stored procedure to get a foreign key relationship between a specified table and other tables SQL Server2000

Server| stored Procedure--I refer to the table name my fruit some fields [5] to refer to some of the fields [3] in the following table [1]
DECLARE @id bigint
Select @id =id from sysobjects where name= ' d_ patient database '
Select a. Name n ' referenced table name ', B.rkey N ' is referred to as the position in the referenced table ', c.name n ' referenced column name ', B.fkey N ' Reference field in this table column position ', d.name n ' Reference field name '
From Sysforeignkeys B, sysobjects a,syscolumns C, (select Name,colid from syscolumns where id= @ID) d
where A.id=b.rkeyid and b.fkeyid= @ID and C.id=a.id and C.colid=b.rkey and D.colid=b.fkey
---I'm being called. The value of a column [2] of the table [1] below is called to refer to my fields [5]
Select a. Name n ' reference my table name ', c.name N ' column name ', B.fkey n ' Reference field position ', B.rkey n ' I am referenced field in table ', D.name n ' I referenced field name '
From Sysforeignkeys B, sysobjects a,syscolumns C, (select Name,colid from syscolumns where id= @ID) d
where A.id=b.fkeyid and b.rkeyid= @ID and C.id=a.id and C.colid=b.fkey and D.colid=b.rkey