Чтение из файла чисел и запись в список

rogram laba5_1;
uses Crt;
const
 n = 9;
type
 pt = ^elem;
 elem =
  record
   data: integer;
   next: pt;
  end;
var
 i,v,w,k,ii: integer;
 t,first,last,list: pt;
 f:text ;
 ch:char ;
 s:string ;
 
begin
 ClrScr;
 assign(f,'C:\f3.txt') ;
 reset(f) ;
 s:='' ;
 while not eof(f) do
 begin
  read(f,ch) ;
  if (ord(ch)>=48) and (ord(ch)<=57) then
   s:=s+ch ;
  if (ord(ch)<=48) or (ord(ch)>=57)  then
   if s<>'' then 
    begin
     val(s,v,w) ;
     delete(s,1,length(s)) ;
     if i=0 then 
     begin
      new(t);
      t^.data:=v;
      t^.next:=nil;
      list:=t;
      last:=t;
      i:=1;
     end;
     if i<>0 then 
     begin
      new(t);
      t^.data:=v;
      t^.next:=nil ;
      last^.next:=t ;
      last:=t;
     end;
    end;
  end;
  if s<>'' then
  begin
   val(s,v,w) ;
   new(t);
   t^.data:=v;
   t^.next:=nil ;
   if list=nil then 
    list:=t;
   last^.next:= t ;
  end;
  t:= list ;
  repeat
   writeln(t^.data) ;
   t:=t^.next ;
  until t=nil ;
end.

   if s<>'' then begin
         val(s,v,w) ;
         delete(s,1,length(s)) ;
        if list=nil then begin
        new(t);
        t^.data:=v;
        t^.next:=nil;
        list:=t; {вот тут присваиваем листу знач. перем. Т.,т.е. теперь лист содержит в себе 2 поля 
данных т.е list^.data:=v list^.next:=nil теперь если посмотреть на фрагмент кода, следующим за 
этим ,то... } 
        last:=t;
        i:=1   ;
        end;
 
  repeat
  writeln(t^.data) ;
  t:=t^.next ;
  until t=nil ;

list:=t; {вот тут присваиваем листу знач. перем. Т., т.е. теперь лист содержит в себе 2 
поля данных т.е list^.data:=v list^.next:=nil теперь если посмотреть на фрагмент кода, следующим
за этим ,то... }

if i=0 then

if i<>0 then

  t:= list ;(т.е. t^.data=list^.data а T^.next=List^.next=nil !!)
  repeat     (представим компилятор первый раз выполняет цикл) 
   writeln(t^.data) ;(здесь он выводит значение list^.data ) 
   t:=t^.next ;( a здесь t^.next должен быть равен nil , ведь перед циклом мы присвоили t:=list (!) ) 
  until t=nil ; ( и соответственно цикл должен выполянться один раз , а получается что выводит все элементы, но как?))

type
 pt = ^elem;     // указатель на запись
 elem =
  record
   data: integer;    // это базовый тип
   next: pt;          // это указатель на следущую запись
  end;

New(ser);  // создаем первую запись
   ser^.next:=nil;     // так как второй записи нет, то указатель ни на что не
                           // указывает, поэтому мы присваеваем ему значени nil
                           // для обозначения конца списка
   ser^.numb:=random(40)-10; // заносим значения в первую запись
   start:=ser; // переменная указывающая на начало списка

New(ser^.next); //выделяем память под следущую запись
//и наш прошлый указатель, которому мы дали значение nil
// теперь должен содержать адрес созданной записи
     ser:=ser^.next; //  переводим наш указатель на только что созданную запись
     ser^.next:=nil;  // указатель, только что созданной записи, на след. запись 
        //равен nil т.к. нет еще след. записи
     ser^.numb:=random(40)-10; // заносим значения в созданую запись