Как сделать, чтобы программа работала при 3-х числах в файле

Uses crt;
Type data=integer;
     TPtr=^TElem;
     TElem=record
       inf:data;
       link:TPtr;
     end;
 
Var begl,endl:TPtr;
    a,z:data;
    t:text;
    k:integer;
Procedure add(g:integer); {Добавление элемента в список}
var p:TPtr;
Begin
  new(p);
  p^.inf:=g;
  p^.link:=nil;
  if endl=nil then
    begin
      begl:=p;
      endl:=p
    end
  else
    begin
      endl^.link:=p;
      endl:=p
    end
End;
 
 
Procedure writ;  {Вывод всех элементов списка}
var p:TPtr;
Begin
  if endl=nil then
    writeln('нет элементов')
  else
    begin
      p:=begl;
      while p<>nil do
        begin
          write(p^.inf,' ');
          p:=p^.link
        end
    end
End;
 
 
Procedure InsertSll(a:integer); { Вставка элемента в середину 1-связного списка }
var p,pk:TPtr;
    i:integer;
Begin
  pk:=begl;
  k:=k div 2;
  for i:=2 to k do        {Установка указателя в середину списка}
    pk:=pk^.link;
  new(p);
  p^.inf:=a;
  p^.link:=pk^.link;
  pk^.link:=p;
End;
 
Begin
clrscr;
begl:=nil;
endl:=nil;
assign(t,'D:\123.txt');
reset(t);
k:=0;
while not eof(t) do
  begin
    read(t,a);
    add(a);
    inc(k)
  end;
write('Элементы списка: ');
writ;
writeln;
 
write('Введите элемент, который нужно вставить в середину списка: ');
readln(z);
InsertSll(z);
write('Новый список с вставленным в середину элементом: ');
writ;
close(t);
End.