Упорядочить строки матрицы, по возрастанию количества одинаковых элементов в каждой строке Опции

[Fedor]

Задача:
Упорядочить строки целочисленной прямоугольной матрицы по возрастанию количества одинаковых элементов в каждой строке (оформить в виде процедуры).

Разбил на подзадачи:
1) Определяем количество одинаковых элементов в строке матрицы.
2) Упорядочиваем строки


Попытался решить 1ю часть так: беру первый элемент строки, сравниваю его со всеми остальными; потом второй, сравниваю со всеми остальными и т.д.
Вот что получилось:

const
      CMatrix_size=3;
 type
      TCounters=Byte;
         TFloat=Real;
        TMatrix=array[1..CMatrix_Size,1..CMatrix_Size]of TFloat;



procedure Count(Matrix:TMatrix);
var  i,j,k:TCounters;
     d:Integer;
begin
d:=0;
for i:=1 to CMatrix_size do
         begin

         for j:=1 to CMatrix_size do
               begin
               for k:=1 to CMatrix_size do
                     if ((Matrix[i,j]=Matrix[i,k])) then
                                    inc(d);

               end;

         Write(d,'; ');
         d:=0;
         Writeln;
         end;
end;

Когда все элементы одинаковые выводится вот что:
9;
9;
9;

Подскажите плиз ошибку...