адача на Turbo Prolog

Здравствуйте!Помогите закончить задачу.Нужно создать файл с именем т,в нем создать строку и в этой строке удалить предпоследний символ.Затруднение вызывает удалить предпоследний символ.Вот что сделано.
domains

• file=datafile1;datafile2
• str=string
• predicates
• data(str)
• write_line
• goal
• openwrite(datafile1,"t"),
• write_line,
• closefile(datafile1),
• openmodify(datafile2,"t"),
• del_sim,
• closefile(datafile2).
• clauses
• data(abcdezf).
• write_line:-data(S),write(S),writedevice(screen),fail,write_line.
• del_sim:-writedevice(datafile2),filepos(datafile2,2,2).

Добавлено 13.11.12, 18:00
domains
file=datafile1;datafile2
str=string
predicates
data(str)
write_line
goal
openwrite(datafile1,"t"),
write_line,
closefile(datafile1),
openmodify(datafile2,"t"),
del_sim,
closefile(datafile2).
clauses
data(abcdezf).
write_line:-data(S),write(S),writedevice(screen),fail,write_line.
del_sim:-writedevice(datafile2),filepos(datafile2,2,2).

пожалуйста помогите решить задачи:
1)выполнить разделение списка на два новых списка,один из которых содержит элементы с нечетными номерами,а другой с четными. использовать ввод из клавиатуры.
2)во внешнем файле хранится текст. написать программу,которая подсчитывает количество цифр в тексте и формирует из найденных цифр список. содержимое файла и результаты распечатать