Pascal is a general-purpose, CR LF
high level programming language CR LF
originally designed by Niklaus Wirth. CR LF
program PLIK; var i : Integer; znak : Char; tekst : Text; begin Assign (tekst, 'TEKST.TXT'); Reset (tekst); for i:=1 to 28 do begin Read (tekst, znak); Write (znak); end; Writeln; Writeln (Eoln(tekst)); Read (tekst, znak, znak, znak); for i:=1 to 31 do begin Read (tekst, znak); Write (znak); end; Writeln; Writeln (SeekEoln(tekst)); Read (tekst, znak, znak, znak); for i:=1 to 37 do begin Read (tekst, znak); Write (znak); end; Writeln; Writeln (Eof(tekst)); Writeln (SeekEof(tekst)); Close(tekst); end.