Классы. Связь между классами

[Mihail1986]

Здравствуйте!
Нужна помощь нужно реализовать классы для работы с комментариями.
Данная схема содержит двунаправленную связь а нужно сделать с однанапрвленной.

Класс Комментарий{
   ID: целое
   Текст: строка
   Тип: строка
   КоличествоЛайков: целое
   Функция добавитьЛайк(){
       Возврат КоличествоЛайков+1}
}
Класс Список{
   Комментарии: Массив типа Коментарий
   Количество: целое
   Функция Добавить коментарий(){
        Количество=Количество+1   
        условие (ПеременнаяТипаКоментарий.Тип="Ответ")
           Поличить ID отвечаемого комментария и запоминаем его индекс в массиве последующие коментарии сдвигаем в право, а на место освободившегося пишем новый
        условие не выполнено
            Пишем комментарий в конец Списка.
        конец условия
        Возврат Количество}
    Функция Обновить(){
         цикл от 1 до Количество
            условие Комментарии[i].ID=полученный ID выбранного коментария
               Коментарии[i].добавитьЛайк()
               прервать цикл
            конец условия
         конец цикла
     }
}

Заранее спасибо за помощь.