binary file/pl

 var
   datFile : File of Byte;    // zawsze odczytuje i zapisuje pojedynczy bajt/znak
   datFile : File of Char;    // zawsze odczytuje i zapisuje pojedynczy znak
   datFile : File of Integer; // zawsze odczytuje i zapisuje 2 bajty/znaki
   ...

 var
   datFile    : File of Char;
   chrContent : Char;

 begin
   Assignfile(datFile, 'przykladowy.txt'); // Przypisuje nazwę pliku do zmiennej txtFile i otwiera plik
   ReWrite(datFile);                       // Plik zostanie nadpisany, jeśli istnieje
   chrContent := 'A';
   Write(datFile, chrContent);             // Wpisz pierwszy znak do nowego pliku
   ...
 end;

 var
   datFile    : File of Char;
   chrContent : Char;

 begin
   ...
   CloseFile(datFile);  // zamyka plik
 end;

 var
   datFile    : File of char;
   chrContent : Char;

 begin
   AssignFile(datFile, 'przykladowy.txt');
   Reset(datFile);                    // Ustawia wskaźnik pliku na początku pliku
   Seek(datFile, FileSize(datFile));  // Określa koniec pliku i ustawia wskaźnik pliku na jego koniec
   chrContent := 'b';
   Write(datFile, chrContent);        // Zapisuje kolejny znak na końcu pliku
   ...

 var
   datFile    : File of Char;
   chrContent : Char;

 begin
   AssignFile(datFile, 'przykladowy.txt');
   Reset(datFile);                     // Ustawia wskaźnik pliku na początku pliku
   Seek (datFile, 1);                  // Ustawia wskaźnik pliku na _drugi_ znak w pliku
   chrContent := 'f';
   Write(datFile, chrContent);         // Zastępuje drugi znak w pliku nowym znakiem
   ...

 var
   datFile    : File of Char;
   chrContent : Char;

 begin
   AssignFile(datFile, 'przykladowy.txt');
   Reset(datFile);
   
   while not eof(datFile)           // czytaj dalej, dopóki są dane do odczytania
     do begin
       read(datFile, chrContent);   // odczytuje pojedynczy znak do zmiennej chrContent
       ...
     end;

   CloseFile(datFile);
 end;