procedure irset(i: integer; var x: hreal);
var
  n: integer;
begin { irset };
  with x do begin
    if i=0 then si:=0
    else if abs(i)>9999 then writeln('irset: error - integer too large')
    else begin
      if i>0 then si:=1 else si:=-1;
      ma[0]:=abs(i);
      for n:=1 to hdim do ma[n]:=0;
      ex:=0;
    end;
  end;
end { irset };

