Дана целочисленная прямоугольная матрица.Упорядочить строки по увеличению количества одинаковых элементов (Паскаль)

[Марина-1]

Подскажите, пожалуйста. Пишу программу в паскале.Условие такое:
Дана целочисленная прямоугольная матрица.Упорядочить строки заданной матрицы по увеличению количества одинаковых элементов в каждой строке.
Вот код.

Program First;
const
    m=6;
    n=5;
type 
    TVector=array[1..m] of integer;
    TMatr=array[1..n] of TVector;
var
   A:TMatr;
   B:TVector;
   i,j,temp,temp1,count,sum_count,k:integer;
begin
 writeln ('Write matrix');
 for i:=1 to n do
  for j:=1 to m do                                                       
   begin
    write('A[',i,']','[',j,']=');
    readln(A[i][j]);
   end;
 for i:=1 to n do
  begin
   count:=0;
   sum_count:=0;
   for j:=1 to m-1 do
    begin
      k:=j+1;
      if A[i][j]<>A[i][k] then
       begin
        inc(count);
        inc(k);
       end
      else 
       inc(k);
      sum_count:=m-count;
      B[i]:=sum_count;
    end;
  end;
 for i:=1 to n-1 do
  if B[i]<B[i+1] then
    begin
     temp:=B[i];
     B[i]:=B[i+1];
     B[i+1]:=temp;
     for j:=1 to m do
      begin
       temp1:=A[i][j];
       A[i][j]:=A[i+1][j];
       A[i+1][j]:=temp1;
      end;
    end;
for i:=1 to n do
 begin
  for j:=1 to m do
   write (A[i][j]:6);
   writeln();
 end;
for i:=1 to n do
 write (B[i]:5);
readln;
end.

[Stilet]

по увеличению количества одинаковых элементов

А если этих количеств несколько? Т.е. одинаковых элементов несколько разновидностей, например 1 1 2 3 1 3 3. Как тогда?

[Марина-1]

Программа считает те элементы которые не повторяются ни разу и потом от количества всех элементов отнимается количество неповторяющихся.И остаток это те числа которые повторяются.К примеру если строка 5556633 то число должно быть 7