Первое, что нам потребуется, это локатор файла. Можно использовать модуль Dialog для включения системного диалога выбора файла:

PROCEDURE OpenFile*;
	VAR loc: Files.Locator; name: Files.Name;
BEGIN
	Dialog.GetIntSpec('txt', loc, name);
END OpenFile;