Создать очередь, информационные поля которой содержат числа из текстового файла file1.txt. (в делфи)

[Nikitqa]

Доброго времени суток! Задача: Создать очередь, информационные поля которой содержат числа из текстового файла file1.txt. Вставить новый элемент с информационным полем d после 9ого элемента списка. Вот исходник добовляющий элемент после 1ого элемента:

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    Button3: TButton;
    LabeledEdit1: TLabeledEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    end;
type   link = ^elem;
         elem = record
                     val : integer;
                     next : link
                     end;
var
  Form1: TForm1; L:link;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var p, q : link; f : textfile; i : byte;
begin
assignfile(f, 'F:\тип учеба\2 курс\П.о\очередь\file1.txt');  reset(f);
new(L);
read(f,  L.val);   
p:=L;                   
begin
new(q);  read(f,  q.val);   p.next:=q;  p:=q
end;
p.next:=nil;      
closefile(f);  showmessage(' Очередь  создана ')
end;
procedure TForm1.Button2Click(Sender: TObject);
var   p:link;
begin
label1.Caption:='';
p:=L;
while   p<>nil  do
begin
label1.Caption:=label1.Caption + inttostr(p.val) + '   ';   p:=p.next
end;
end;
procedure  TForm1.Button3Click(Sender: TObject);
var  r:link;  d:integer;
begin
d:=strtoint(LabeledEdit1.Text);
new(r);  r.val:=d;  r.next:=L.next;  L.next:=r;
end;
end.

Что нужно сделать чтобы после 9ого было, меняя только:

procedure  TForm1.Button3Click(Sender: TObject);
var  r:link;  d:integer;
begin
d:=strtoint(LabeledEdit1.Text);
new(r);  r.val:=d;  r.next:=L.next;  L.next:=r;
end;

Я вроде понимаю что надо индексирование сделать :

i : byte;
for  i:=2  to  15  do.

Но как ни делая ничего не выходит. Помогите сделать, заменяя только Button3click.

[evg_m]

p:=L; //начинаем с сначала
i:=o; // и считаем элементы
while p<>nil do begin // проверяем конец списка
p:=p.next; 
i:=i+1; // считаем элементы
if i=7 then begin //проверяем нужное место
  new(r); // новый элемент
  r.next:=p.next; // все оставшиеся теперь будут после нового (r)
  p.next:=r;  //а сам новый будет после текущего (p)
  r.val:=d; // задаем значение нового
  break; // досрочно закончит  цикл
end;

код не проверял!

Помогите сделать, заменяя только Button3click.

Увы так не получится. В ваш список из файла вводится только ОДИН элемент.

  reset(f);
  new(L);
  p:=L;                   
  while not EOF(f) do begin
//  read(f,  L.val);   
//  begin
    new(q);  
    q.next:=nil;
    read(f,  q.val);   
    p.next:=q;
    p:=q;
  end;
//  p.next:=nil;      
  closefile(f);

код не проверял!