[CTAJLUH]

Writeln(f,name_g[n,j], ';' , name_g[n,j+1]);
';' , name_g[n,j+1]- это надо заменить количеством символов (на сколькоя помню)
на делфи перешел недавно но попробуй

http://www.delphisources.ru/pages/faq/base/writeln.html
может там найдешь ответ