Немогу понять в чем дело!

[BelialL]

Посмотрите плз прогу

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils,DateUtils;

var t: textfile;
date,month,year:Integer;

begin
AssignFile(t,'file1.txt');
Rewrite (t);
readln(day);
readln(month);
readln(year);
write(t,day,month,year);
end

Вроде сделано все правильно а данные в текстовый файл не заносятся может у меня что с делфи?

[BelialL]

aп!ап ап ап

[Don Karleone]

не забываем закрывать файл: closefile(t)

[BelialL]

Сообщение от Don Karleone

не забываем закрывать файл: closefile(t)

спасибо болшое помогли!