Example: var Lines ReadTextFile('MARXREAD.ME',Lines) Writeln 'The file is ' NumberofElements (Lines) ' lines long.'