надо чтобы прога создавала файл (rewrite(f)) в тойже директории где распологается сама,
ели в строке пути поставить '' то файл создается в папке где расположен паскаль.

Значит, текущая папка у тебя - та, где установлен Паскаль...

uses dos;
var _dir, _name, _ext: string;

begin
  fsplit(paramstr(0), _dir, _name, _ext);
  { Используй _dir + 'имя_файла' }