создание файла

[shalgan]

при создании файла выдает ошибку 12.jpg
вот код

type
rec=record
day:string[2];
month:string[2];
year:string[4];
end;
var
v:rec;
f:textfile;
n,i:integer;
begin
n:=memo1.lines.count-1;
assignfile(f,'C:\shalgan\f1.txt');
rewrite(f);
for i:=0 to (n-1) do begin
v.day:=string(memo1.lines[i]);
v.mounth:=string(memo2.Lines[i]);
v.year:=string(memo3.Lines(i]);
writeln(f,v.Day, v.Month, v.year);
closefile(f);
end;

end;

end.

Думаю ошибка в writeln ,но не знаю как как по другому записать

[Arigato]

Потому что closefile(f);

[Stilet]

Потому что closefile(f);

...находится в цикле, а должно быть вне его. )
Это я типа договорил )))

[shalgan]

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

...находится в цикле, а должно быть вне его. )
Это я типа договорил )))

спасибо огромное, теперь все работает

[Serge_Bliznykov]

А то, что Вы последние две строчки Memo1 не обрабатываете, это так и задумано?

[Arigato]

Последнюю одну.

[Serge_Bliznykov]

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

Последнюю одну.

согласен, пропускается только одна последняя строчка..