Однонаправленные линейные списки

[Lubawa]

Program lab4;
uses crt, List;
type
PHuman=^THuman;
THuman=record
    Name:string[15];
    sex: string[1];
    ball:string[4];
    next:PHuman;
end;
var
i:integer;
Human:PHuman;
finput,finout: text;
begin
    new(Human);
    Human^.Name:=
end.

Как мне внести в информационные поля данные из текстового файла?

[p51x]

книга по паскалю - глава работа с файлами

[Lubawa]

Если бы я разобралась по учебнику, то помощи бы не просила, работа с файлами мне понятна, не понятно как создается список, эту главу в учебнике я тоже прочитала, но список создать не могу.

[val_nnm]

чтото вроде этого

...
...
var First,Last,Temp:PHuman;
begin
  First := nil;
  Last := nil;
  Assign(finput,'input.txt');
  Reset(finput);
  while (not eof(finput)) do Begin
    new(Temp);
    Readln(finput,Temp^.Name);
    Readln(finput,Temp^.sex);
    Readln(finput,Temp^.ball);
    Temp^.next := nil;
    if (Last=nil) then Begin
      First := Temp;
      Last := Temp;
    end else Begin
      Last^.next := Temp;
      Last := Temp;
    end;
  end;
  Close(finput);
end.

[Lubawa]

Спасибо большое за помощь, Вы мне очень помогли.