PDane = ^TDane;
  TDane = record
    id:Integer;
    nast:PDane;
  end;

procedure dodaj (var d:PDane; a:integer);
var
  p:PDane;
begin
  repeat
    if d^.nast=nil then
    begin
      new(p);
      d^.nast:=p;
      p^.nast:=nil;
      p^.id:=a;
    end
    else d:=d^.nast;
  until p^.nast=nil;
end;