If you have TL you should output line very effective (if you output one character you get TL).
For pascal good output: s:string; setlength(s,n); s:='.......'; write(s).