Можно использовать Files.OpenReader*(VAR b: Reader; f: File; pos: Position); или непосредственно VAR r := NEW Files.Reader( file, pos )
Код: Выделить всё
WHILE r.res = Streams.Ok DO
r.Char( ch );
...
END;
Код: Выделить всё
WHILE r.res = Streams.Ok DO
r.Char( ch );
...
END;