procedure ztread(f: string; var z: zeros);
{ read zeros z from file named f }
var
  i: integer;
  s: longstring;
  t: text;
begin { ztread }
  write('(ztread ',trim(f)); flush(output);
  reset(t,f);
  readln(t,i);
  if i<zdim then writeln('ztread: error - not enough zeros');
  for i:=0 to zdim do begin
    readln(t,s);
    ssset(s,z[i]);
  end;
  write(')');
end { ztread };

