1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

String20 = string[20];
    tperson = ^personentyp;
    personentyp = record
        name: string20;
        next : tperson;
    End;

var
  Form1: TForm1;
  kopf : tperson;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var lauf, person :tperson;

begin
new(person);
person^.name := edit1.text;
person^.next := NIL;
if (kopf = NIL) then kopf := person
   Else begin
   Lauf := kopf;
   While Not (lauf^.next = nil)
   do lauf := lauf^.next;
   lauf^.next:= person;
   end;
end;