vd: đọc từ tệp 'data.inp' hai số nguyên (trên cùng một dòng), xuất hai số này ra màn hình.

var f: text;

      a, b: integer;

Begin

    Assign(f, 'data.inp'); reset(f);

    Read(f, a, b);

    Writeln('a = ', a);

    Writeln('b = ', b);

    Readln

End.

__________________________

vd: nhập hai số thực từ bàn phím, ghi vào tệp 'data.out' tổng hai số đó.

var f: text;

      a, b: real;

begin

    Assign(f, 'data.out'); rewrite(f);

    Write('nhap hai so thuc: '); readln(a, b);

    Write(f, a+b);

    Close(f);

End.

Cấu trúc:

assign(<tên biến tệp>,<tên tệp>); Mở tệp

Close(<tên biến tệp>);                     Đóng tệp

VD:

Chương trình đọc dữ liệu tệp (đọc một biến n từ tệp):

uses crt;
var f:text; // Khai bao bien tep
n:longint;
begin
clrscr;
   assign(f,'input.pas');reset(f); // Mo tep
      readln(f,n); // Doc bien n tu tep
      write(n);
   close(f); //Dong tep
readln
end.

Chương trình ghi dữ liệu vao tệp (ghi một biến n vào tệp):

uses crt;
var f:text; // Khai bao bien tep
n:longint;
begin
clrscr;
   assign(f,'output.pas');rewrite(f); // Mo tep
      write('n=');readln(n);
      write(f,n); // Ghi bien n vao tep
   close(f); //Dong tep
readln
end.