Вывод записей из динамического списка Опции

[alex457]

Здраствуйте, такой вопрос, как вывести из списка одну запись например 3 из 100.
Создание списка происходит так:

Assign(Data,Path);
     Reset(Data);
     l:=nil;
     i:=0;
     while not eof(Data) do
         begin
            inc(i);
            Seek(Data,i);
            Read(Data, Symbol);
            new(t);
            t^.key := i;
            t^.row := Symbol;
            t^.next := l;
            l:=t;
         end;
     CountRecords := i;
     Close(Data);

Вывод всех записей:

  while ( t <> nil) do
           begin
    
              write(t^.row.SurName);
              write(t^.row.Name);
              write(t^.row.FullName);
              write(t^.row.BhirtDay);
              writeln(t^.row.Identity);
              t:=t^.Next;
           end;
     end;

А вот как обратиться к определенной записи непонимаю.

Сообщение отредактировано: alex457 - 12.04.2012 13:40