function DeleteFile (Const FileName: String): Boolean;Из вышеприведенного примера совершенно четко видно, что параметр функции
DeleteFile должен быть типа
String, а у тебя переменная
d, которую ты используешь в качестве параметра у функции
DeleteFile, объявлена, как
File. Поэтому очевидно, что компилятор будет выдавать ошибку несовместимости типов.
В своей программе для удаления файлов используй процедуру
Erase, у нее параметр должен быть как раз типа
File или
TextFile.
procedure Erase (var FileHandle: File);Кстати, ты не только с двумя
If накосячил, ты еще зачем-то два раза используешь оператор
Continue. Перепроверь свою программу с начала и до конца и перепиши ее.
И последний вопрос (но он больше не к тебе лично, а в целом ко всем студентам, и, скорее всего, он риторический): когда же студенты наконец-то научатся пользоваться справками?