until (eof(FH)) ... read(FH, $val, 128); ...