помогите пожайлуста с программой на Turbo prolog

Здравствуйте уважаемые специалисты. У меня проблемы с написанием программы на Turbo Prolog.
Я привык писать программы на языках типа Pascale , Delphi, C++ . А с логикой Turbo Prolog, у меня проблемы.
Вот следующее условие:

Выберите некоторую форму задання базы данных, в которой содержатся сообщения об операциях с кредитными карточками. Каждая запись должна иметь информацию о фамилии лица, которое тратит деньги, о типе операции и количестве денег. Напишите программу, которая будет выдавать значение конечной суммы всех операций для конкретного лица.

Помогите пожалуйста с написанием программы. Заранее благодарен Сергей.

Да нет, я не халявшик который ничего не делает и просит других. Вот в чем моя проблема и до чего я дошош:

domains

name=symbol
summa=integer
mode=symbol
rezult=integer
op=load(name,summa)

predicates
      
      load(name,summa)
      rez(name,rezult)
      suma(integer,integer,integer)
      pluse(name,integer)
      new(integer,integer)
      verynew(integer,integer,integer)
clauses
     
     load(ivanov,500). //операция снятия денег
     load(petrov,600).
     load(sidorov,400).
     load(ivanov,400).
     load(ivanov,100).
     
     suma(Q,W,Z):-
          Z=W+Q.
     rez(G,X):-    //вот тут я выбирая все записи снятия денег допустим Иванова. Пролог мне выводит результаты Х=100,Х=500,Х=400 и вот тут то и возникает вопрос. Как мне получить не все эти значения а их суииу, тоесть 1000. Задача состоит в том что б посчитать общую сумму растрат пользователя иванова(или другого)
     
     load(G,K),           
       
       
       X=K.

Заранее спасибо за ответ.Хоть кому то не безразлично...

статьи и решенные задачки по турбо прологу - советую посмотреть