var
f: Text; // Сам файл
s: string; // Переменная в которую записываются данные с файла
begin
Assign(f, 'с:\text.txt'); // Первый аргумент (f) - название переменной файла
// Второй - путь к файлу
Reset(f); // Открытие для чтения
Read(f, s); // Чтение и запись в переменную
end.
