Text files half empty ?

From: Floortje (floortje-apestaartjexs4allpuntnl_at_hetminnetjehoort.erbij)
Date: 03/30/04 

Date: Tue, 30 Mar 2004 01:16:50 +0200

this code only writes about half the info to a text file. It outputs it
completely on the screen dough ... anyonce know howcome ? I use TP 7.0

Thx Floortje

    for teller := 1 to 15 do
    BEGIN
    writeln(outfile,resultaat[teller].woord, '
',resultaat[teller].antwoord,' ',resultaat[teller].rt);
    writeln(resultaat[teller].woord, ' ',resultaat[teller].antwoord,'
',resultaat[teller].rt);

gives
outfile:
pers f 36241408
tram f 36241408
want f 36241408
boot f 36241408
hand f 36241408
glad f 36241408
wand f 36241408
held f 36

Vars ive used:

TYPE myrecord = record
           woord:STRING[4];
           bestaat:CHAR;
           rt:LONGINT;
           antwoord:CHAR;
           beginplaats:BYTE;
           END;
resultaatarray = ARRAY[1..30] of myrecord;

VAR teller:BYTE;
    resultaat:resultaatarray;
    outfile:TEXT;
    naam:STRING[10];