Cho mình hỏi là làm sao để ghi số lượng text trong file ạ?

Thường thì trong file sẽ có dữ liệu là giá trị ta cần nhận. Ví dụ: với đề bài đọc n từ file teptin.txt và xuất ra màn hình thì file teptin.txt có dạng:

**teptin.txt**

*  n              *

*                  *

*************

Chương trình: 

uses crt;
var f:text; n:longint;
begin
clrscr;
   assign(f,’teptin.txt’);reset(f);
      readln(f,n); 
      writeln(n);
   close(f);
end. 

///////////////////////////////////////////////////////////////////////////////////

Còn bạn muốn có nhiều text n thì chỉ việt việc thêm số lương text vào đầu thôi:

**teptin.txt**

*  t(số text)  *

*  t số n…     *

************

Khi đó chương trình là: 

uses crt;
var f:text; n:longint;
begin
clrscr;
   assign(f,’teptin.txt’);reset(f);
      readln(f,t);
      for i:=1 to t Do 
         begin
            readln(f,n); 
            writeln(n);
         end;
   close(f);
end.