Список в Прологе, нужно исправить ошибки в программе

[Roxanne]

Помогите пожалуйста с задачей: Создать список, написать правила добавления элемента в начало, в конец и встаку элемента с указанием его номера в списке (для Turbo Prolog 2.0).
Не могу понять, в чем ошибка, компилятор ругается
Укажите на ошибки, пожалуйста. Благодарю за помощь.

domains
    i=integer
    sp=i*
predicates
    enter(i,sp)
    show(sp)
    begin(sp,sp)
    end(sp,sp)
    por(i,i,sp,sp)
clauses
    enter(0,[])
    enter(N,[H|L]):-
        N1=(N-1),enter(N1,L);
        readint(H)
    show([])
    show([H|T]):-write(H,' '),show(I),
    begin(L,[H|L]):-readint(H)
    end([],[H]):-readint(H)
    end([H|T],[H|S]):-end(T,S).
    
    por(I,I,[H|L],[X,H|L]:-readint(X)
    por(I,N,[H|L],[H|S]):-I1=I+1,
    por(I1,N,L,S)
goal
    enter(S,L)
    por(1,3,L,S)
    show(S).