Liste Pascal FINAL

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 Remove(var glava: pelem; t:integer);
var
pom,pred,tren:pelem;
begin
    pred:= NIL;
    tren:= glava;
    while(tren <> NIL) do
    begin
        if (t = tren^.info) then
        begin
            if (pred = NIL) then
            begin
                glava:=glava^.next;
                pom:=tren;
                tren:=tren^.next;
                dispose(pom);
            end
            else
            begin
                pred^.next:=tren^.next;
                pom:= tren;
                tren:= tren^.next;
                dispose(pom);
            end
        end
        else
        begin
            pred:= tren;
            tren:= tren^.next;
        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,t:integer;

begin

read (n);
if (n<1) then exit;

head:=NIL;
PopuniListu(head,n);
PrintList(head);
Printlist(head);
readln(t);
Remove(head,t);
writeln();
printlist(head);

end.