паскаль. массив не до конца печатается в файл

[long lost]

Здравствуйте.
вот этот

var
a:array [0..19] of string;
i:integer; f:text;
begin
assign(f,'roles.txt');
reset(f);
for i:=0 to 19 do
  readln(f,a[i]);
close(f);
{тут массив чуть-чуть менялся (на случай если у кого-нибудь возникнет вопрос, зачем нужна эта программка)}
rewrite(f);
for i:=0 to 19 do
  writeln(f,a[i])
end.

по идее никак не должен изменять файл. Но после выполнения файл обрезается на 3 строчки (причём остаётся первый элемент третьей с конца строки). С чем это связано и как исправить?
Заранее спасибо.

[Serge_Bliznykov]

ОБЯЗАТЕЛЬНО нужно закрывать файл:
добавтьте в конце (после цикла)

Close(f);

[_-Re@l-_]

Теперь, надеюсь, запомню, что файлы надо обязательно закрывать)

Да, в паскале и ему подобных надо... В С++ - не обязательно. По крайней мере, я никогда не закрываю - и ни разу не встречался с какими-либо ошибками.

[long lost]

Спасибо огромное! Теперь, надеюсь, запомню, что файлы надо обязательно закрывать)