"частотa" числа

[bercut]

Данa матрица А размерностью nxm. Посчитать "частоту" числа (сколько раз встречается каждое число в матрице) и результат представить в виде матрицы C размерностью kx2. Матрицу С отсортировать (по возростанию) значений частот, в случае равных частот - по значению числа.

{в этом куске проги я ввожу матрицу и преобразую ее в одномерный массив}
program z1;
const n=2;
const m=3;
var
 arr1:array[1..n,1..m] of integer;
 arr2:array[1..n*m] of integer;
 i,j,k:integer;
begin
k:=11;
for i:=1 to n do begin
  for j:=1 to m do begin 
 writeln(arr1[i,j]);
 end;
 end;
for i:=1 to n*m do begin
     write(arr2[i]:5);
end;
readln;

{тут вычисляю частоту,но чего-то не работает.
 выдает номер и сам элемент}

for i:=0 to k do begin
    if arr2[i]>1 then       WriteLn(i,' ',arr2[i]);
 writeln;

end;
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

1) зачем Вам одномерный массив размера n*m ?!

2) зачем Вы его выводите, если Вы туда ничего не сохраняли?

3) где создание результирующей матрицы (это которая "виде матрицы C размерностью kx2.") и, кстати, что такое K по Вашему? (у меня есть предположения на этот счёт, хочу услышать Ваше мнение...

4) и последнее. Исходный массив каким образом собираетесь задавать?! я бы рекомендовал использовать генератор случайных чисел...