a) var
  f: TextFile;
begin
  AssignFile(f, 'ten_tep.txt');
  Rewrite(f); // Mở tệp để ghi dữ liệu
  // Thực hiện ghi dữ liệu vào tệp
  CloseFile(f); // Đóng tệp
end;
b)var
  f: TextFile;
  line: string;
begin
  AssignFile(f, 'ten_tep.txt');
  Reset(f); // Mở tệp để đọc dữ liệu
  while not eof(f) do begin
    Readln(f, line); // Đọc từng dòng trong tệp
    // Thực hiện xử lý với dữ liệu đọc được
  end;
  CloseFile(f); // Đóng tệp
end;
c)var
  f: TextFile;
begin
  AssignFile(f, 'ten_tep.txt');
  Rewrite(f); // Mở tệp để ghi dữ liệu
  Writeln(f, 'Dữ liệu 1'); // Viết dòng dữ liệu vào tệp
  Writeln(f, 'Dữ liệu 2');
  // Thực hiện ghi dữ liệu vào tệp
  CloseFile(f); // Đóng tệp
end;

d)var
  f: TextFile;
  line: string;
begin
  AssignFile(f, 'ten_tep.txt');
  Reset(f); // Mở tệp để đọc dữ liệu
  while not eof(f) do begin
    Readln(f, line); // Đọc từng dòng trong tệp
    // Thực hiện xử lý với dữ liệu đọc được
  end;
  CloseFile(f); // Đóng tệp
end;