Запустил прогу - всё нормально. Имя файла не выводится. (конеш убрал комент-скобки с writeln(qwe) ) Переменная qwe - пустая, до reset не доходит. Прога выводит - "Отсутствует файл". Добавлено спустя 4 минуты 55 секунд: Проверил дебаггером - в блок if ... reset ... end прога не заходит. Юзай дебаггер среды, увидишь в нем весь ход программы пошагово. Добавлено спустя 34 минуты 47 секунд: Создал у себя папку и файл c:\justice\mass.xdb Дебагер показал, что переменная qwe = 'c:\justice\mass.xdb' Поэтому прога не заходит в блок Reset. 'c:\justice\mass.xdb' не равно 'mass.xdb' Сделал так: FName: string; XName: NameStr; XDir: DirStr; XExt: ExtStr; процедура FSplit(qwe, XDir, XName, XExt); FName := XName + XExt; {FName='mass.xdb'} Теперь прога в блок if.. Reset... заходит. Добавлено спустя 18 минут 7 секунд: Удалил файл. Прога в блок if.. Reset не заходит. Всё нормально! Итоги - юзай процедуру FSplit (модуль dos), чтобы не зависеть от разного поведения функции FSearch (вообще-то она должна выводить полное имя файла (с путём). думаю, что она выводит только имя файла без пути, когда ей передают пустую строку вместо пути. Пустая строка пути означает, что файл ожидается в папке, где сама прога). И пользуйся окошком дебагера Watch (туда добавить переменные), клавишами F4 (run проги до положения курсора), F7 (пошаговый ран с заходом в процедуры и функции), F8 (пошаговый ран без захода в процедуры и функции). Ctrl-F2 - снять режим дебага.