ошибка

[salwator]

Помогите пож-та исправить ошибку
я делаю программу на базе двусвязного динамического списка,с фиктивным элементом.Я считываю с текстового файла вот это:
PLETNEV_A.A. 11423 89042544652 111282581329 VTORNIK 10.30
GUCHIN_N.N. 22336 89124568975 111254796321 PYATNICA 08.00
KURULEVA_E.I. 15774 89065521416 111892135492 PONEDELNIK 08.00
CHAHOV_N.G. 10892 89042239878 111931482673 VTORNIK 15.30
PUCHKINA_M.A. 14756 89068773633 111834652218 CHETVERG 11.10
PISKUNOV_A.B. 21551 89041131144 111863625378 SREDA 11.50
GORBUNOVA_L.N. 19854 89064652365 111234895468 PYATNICA 10.30
TUCHIN_C.P. 16234 89123338594 111845623356 PONEDELNIK 09.05
NIZOVCEVA_C.P. 20149 89068521474 111868943263 CHETVERG 14.40
PETUHOV_C.C. 13258 89066855315 111564862378 VTORNIK 12.20
и при выводе на экран у меня выводит только последние 4 строчки,не могу понять почему выводит не всё,помогите найти ошибку
Вот основные процедуры:

procedure fictiv(var beg:uk);
var x:uk;
begin
new(beg);
beg^.next:=beg;
beg^.prev:=beg;
end;

procedure dobav(var elem:uk;FIO,nom_kart,telef,INN,ned, time:string);
var x:uk;
begin
new(x);
x^.FIO:=FIO;
x^.nom_kart:=nom_kart;
x^.telef:=telef;
x^.INN:=INN;
x^.ned:=ned;
x^.time:=time;
x^.next:=elem;
elem^.next:=x;
end;

procedure zapoln(var f:text;var beg:uk);
var FIO,nom_kart,telef,INN,ned,time:str ing;
begin
assign(f,'kurs.txt');
reset(f);
fictiv(beg);
while not eof(f) do
begin
readln(f,FIO);
readln(f,nom_kart);
readln(f,telef);
readln(f,INN);
readln(f,ned);
readln(f,time);
dobav(beg,FIO,nom_kart,telef,INN,ne d,time);
end;
close(f);
writeln(' **********************');
writeln(' ЧТЕНИЕ ФАЙЛА ЗАВЕРШЕННО');
writeln(' **********************');
readln;
end;

procedure vivod(beg:uk);
var x:uk;
begin
x:=beg^.next;
repeat
textcolor(10);
writeln(x^.fio);
writeln(x^.nom_kart);
writeln(x^.telef);
writeln(x^.inn);
writeln(x^.ned);
writeln(x^.time);
x:=x^.next;
until x=beg;
readln;
end;