var

 f: Text; // Сам файл

 s: string; // Переменная в которую записываются данные с файла

begin

 Assign(f, 'с:\text.txt'); // Первый аргумент (f) - название переменной файла

                           // Второй - путь к файлу

 Reset(f); // Открытие для чтения

 Read(f, s); // Чтение и запись в переменную

end.