Basic Lista Pascal

program Lista;
type pElem = ^element;
    element = record
                info: integer;
                next:pElem;
                end;

procedure PopuniListu(var head: pElem; n:integer);
var pom:pElem;
t,i:integer;

begin
    writeln('Unesite elemente: ');
    for i:=1 to n do
    begin
        read (t);
        if (head = NIL) then
        begin
            new (head);
            head^.info:=t;
            head^.next:=NIL;
        end
        else
        begin
            pom:=head;
            while(pom^.next <> NIL) do
                pom:=pom^.next;
            new(pom^.next);
            pom:=pom^.next;
            pom^.info:=t;
            pom^.next:=NIL;
        end;
    end;

end;

procedure PrintList(head:pElem);

begin
        while (head <> nil) do
        begin
            write('[' ,head^.info, '] --> ');
            head:=head^.next
        end;
        writeln();
end;

var
head:pElem;
n:integer;

begin
writeln ('Unesite broj elemenata liste: ');
writeln();
read (n);
if (n<1) then exit;

head:=NIL;
PopuniListu(head,n);
PrintList(head);

end.