Выаод из DBGrid в EXcel (странный способ)

[Girl]

Пример кода:
assignfile (f,'min.csv');
rewrite(f);
i:=1;
writeln(f,'140211.65');
writeln(f,'íîì;ÔÈÎ;ñïåö;ïðèçí;ð;ì;ô ;èíô');
nom:=1;
for i:=1 to 18 do
begin
for n:=1 to ii[i] do
begin
s:=inttostr(nom)+';'+post[i,n];
writeln(f,s);
inc(nom);
end;
nom:=1;
writeln(f,'');
writeln(f,'');
writeln(f,'');
if i=1 then writeln(f,'150204.65');
writeln(f,'íîì;ÔÈÎ;ñïåö;ïðèçí;ð;ì;ô ;èíô');

if i=2 then writeln(f,'270102.65');
writeln(f,'íîì;ÔÈÎ;ñïåö;ïðèçí;ð;ì;ô ;õèì');

if i=3 then writeln(f,'151001.65');
writeln(f,'íîì;ÔÈÎ;ñïåö;ïðèçí;ð;ì;ô ;èíô');

if i=4 then writeln(f,'080801.65');
writeln(f,'íîì;ÔÈÎ;ñïåö;ïðèçí;ð;ì;î ;èíÿç');
end;
if i=5 then writeln(f,'190601.65');
writeln(f,'íîì;ÔÈÎ;ñïåö;ïðèçí;ð;ì;ô ;èíô');
end;
if i=6 then writeln(f,'080502.65');
writeln(f,'íîì;ÔÈÎ;ñïåö;ïðèçí;ð;ì;î ;èíÿç');

if i=7 then writeln(f,'270205.65');
writeln(f,'íîì;ÔÈÎ;ñïåö;ïðèçí;ð;ì;ô ;õèì');
................

end;


CloseFile(f);
ShowMessage('ok');

при выводе в эксель людей по первой спец выводится один заголовок, далее для второй - второй.
Но у меня получается при этом коде, специальность - заголовок-вывод Далее
специальность - заголовок-заголовок-вывод.
Мне надо чтоб заголовок выводиля только тот который надо, а не перебирал всех. пробовала ставить end. выдет ошибку. Помогите

[Stilet]

Ниразу не понятный код, с кракозябрами, неполный...
Давай подробнее проблему и код.