Запись в файл в Паскале

[Cookson]

Не получается записать строку в файл.

var
 f:text;
begin
 assign(f,'D:\1.txt');
 rewrite(f);
 write(f,'some text');
end.

Код выполняется без ошибок, но записи в файл не происходит. Если в файле что-то было, содержимое стирается. Предвижу какие-то проблемы с досовской кодировкой. Также предвижу, что подобные вопросы уже задавались, но поиск ничего не дал

Среда разработки - Free Pascal

[Stilet]

а закрыть файл? функция Close где?
Да и потом если файл типа text рекомендуется WriteLn применять

[Cookson]

Сообщение от Stilet

функция Close где?

Ох, точно. Спасибо вам большое

[Cookson]

Теперь здесь будут мои глупые вопросы по работе с файлами в Паскале

var
 f:file;
begin
 assign(f,'input.txt')
 reset(f);
 ...

Когда пытаюсь ресетить файл, выскакивает ошибка, что файл не найден. Если писать полный путь, вроде 'D:\input.txt', то всё работает, но мне нужно открывать файл именно в текущей папке. Экзешник и input.txt в одной папке, естественно. В чём проблема?