Извините я пока что в паскале ни бум-бум. У меня возник вопрос. Как сделать, чтобы выполнялся поиск файлов по маске, а потом они удалялись? Пребывал по-простому
Assign (f, ‘*.bak’);
Erase (f);
но не получается.

Попробуй по-сложному:

{$m 4096, 0, 0}
uses dos;
begin
  swapvectors;
  exec(getenv('comspec'), '/c del *.bak');
  swapvectors;
end.

Спасибо

У меня еще один вопрос %windir% не работает, а можно как то это компенсировать?

Зато

WriteLn(GetEnv('systemroot'));

прекрасно работает...