unit Unit2;

interface
type
Key = ^Tmy;
Tmy = Record
num:Integer;
data:array [1..30] of char;
pred,next:Key;
end;

implementation

function InFirst(Pdec:Tmy;i:Integer;str:array [1..30] of char);
begin
  Pdec.num:=i;
  Pdec.data:=str;

end;

end.
