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