Масивы (pascal)

[dark76ru]

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

[IT-man]

{отфильтровать массив из целых чисел чтобы он выводил числа в следующем порядке: сначало число встречающееся один раз, потом 2 раза и т.д.}
const ras=15;
var c:array[1..ras] of integer;
    d:array[1..ras] of integer;
	  i,k,j,m,r,x:integer;
    f:boolean;
begin
  r:=0;
  for i:=1 to ras do
    begin
      c[i]:=random(8);
      write(c[i]:4);
    end;
  for i:=1 to ras do
    begin
      for m:=1 to ras do
        begin
          k:=0;
          for j:=1 to ras do
            if c[j]=c[m]  then inc(k);
          if k=i then
            begin
              f:=false;
              for x:=1 to r do
                if c[m]=d[x] then f:=true;
              if not f then
                begin
                  r:=r+1; d[r]:=c[m]
                end;
          end;
      end;
    end;
  writeln;
  for i:=1 to r do
    write (d[i]:4);
  readln;
end.