buenas, no sé si lo siguiente está en el práctico, estoy tratando de hacer un procedimiento que agregue elementos al final de la lista y probé de mil formas pero todo me da error.
código del procedimiento:
procedure agregarAlFinal(valor : integer; var l : lista);
var p, aux : lista;
begin
new(p);
p^.elemento:=valor;
aux:=l;
while (aux<>nil) do
aux:=aux^.siguiente;
aux^.siguiente:=p;
p^.siguiente:=nil
end;
declaración de tipos:
type
lista = ^celda;
celda = record
elemento : integer;
siguiente : lista
end;