Trong các đáp án cần lưu ý 3 vị trí:

 `+` Gán tên tệp cho biến thì phải là: Assign(<tên biến>,<tên tệp>);

  `=>` Assign(f,'VIDU.TXT');

 `+` Mở tệp là đọc dữ liệu là: reset(<tên biến>);

   `=>` Reset(f);

 `+` Đọc dữ liệu từ tệp là: read(<tên biến>,<các dữ liệu>); hoặc readln

   `=>` readln(f,x,y);

Kết hợp từ các điều trên `=>` A

Chương trình:

program ham;
uses crt;
  var f: text;      {khai báo biến tệp f}
        x, y: real;
begin
     assign(f, 'VIDU. txt');         {gắn tên tệp cho biến f}
     reset(f);                             {mở tệp để đọc dữ liệu}
     readln(f, x, y);                    {đọc dữ liệu từ tệp vào biến x, y}
     close(f);                             {đóng tệp}
     write('Mo file de xem ket qua');
     readln
end.

Xét các đáp án:

- Đáp án A: Đúng với chương trình trên.
- Đáp án B: Cú pháp var và assign sai.
- Đáp án C: Rewrite là mở tệp để ghi dữ liệu.
- Đáp án D: Cú pháp đọc dữ liệu từ tệp vào biến sai.

Đáp án đúng: A.