составить правило в Visual Prolog Нужно найти цену самого дорогого фрукта, не могу понять, как это можно сделать, можно через рекурсию или циклы, но у меня что-то не получается .

Программа:
domains
название=symbol
стоимость=real

predicates
дорогой (стоимость)
фрукты (название, стоимость)

clauses
фрукты (яблоко, 20).
фрукты (груша, 15).
фрукты (вишня, 40).
фрукты (гранат, 70).
фрукты (банан, 60).
фрукты (слива, 30).

дорогой (Ц): -фрукты (_,Ц1), фрукты (_,Ц), (Ц-Ц1)>0. %это правило

goal
дорогой (Ц).

#include <iostream>

#include <iomanip>

#include <stdlib.h>

#include <time.h>

using namespace std;

int main()

{

   const int size = 4;

   int mat[size][size];

   srand(time(NULL));

   for (int i = 0; i < size; i++)

   {

       for (int j = 0; j < size; j++)

       {

           mat[i][j] = 0 + rand() % 11;

       }

   }

   cout << "   Matrix:" << '\n';

   for (int i = 0; i < size; i++)

   {

       for (int j = 0; j < size; j++)

       {

           cout << setw(4) << mat[i][j];

       }

       cout << '\n' << '\n';

   }

   int sum = 0;

   for (int i = 0; i < size; i++)

   {

       for (int j = size; j < size; j++)

       {

           sum += mat[i][j];

       }

   }

   cout << "Sum:" << sum << '\n';

   return 0;

//PascalABC.NET v3.3 1633

var arr: array [1..6, 1..6] of integer;

begin

 for var i:=1 to 6 do

   for var j:=1 to 6 do

     arr[i, j]:=random(-49, 50);

 writeln('Исходный массив: ');

 for var i:=1 to 6 do

     arr[i].PrintLn(', ');

 var num:=0;

 for var i:=1 to 6 do

   if arr[i, 2] < 0 then num += 1;

 writeln('Количество отрицательных элементов второго столбца: '+num);

 for var i:=1 to 6 do

   for var j:=1 to 6 do

     if arr[i, j] > 0 then arr[i, j]:=-49;

 writeln('Новый массив: ');

 for var i:=1 to 6 do

     arr[i].PrintLn(', ');

end.