procedure sread(f: string; var x: scalar);
var
  s: longstring;
  t: text;
begin { sread }
  write('(sread ',trim(f)); flush(output);
  reset(t,f);
  readln(t,s);
  srset(s,x.l);
  if trunc and (x.l.si<0) then rtowinfty(x.l);
  readln(t,s);
  srset(s,x.u);
  if trunc and (x.u.si>0) then rtowinfty(x.u);
  write(')'); flush(output);
end { sread };

