определение суммарного спроса (pascal)

[Margo123321]

помогите, пожалуйста, с решением задачи в паскале:
в магазине имеются товары различных наименований. в течении дня каждый из М покупателей (М - заданное число) сообщил о своем намерении приобрести определенное количество товара одного из наименований. требуется определить суммарный спрос на товары каждого наименования, расположив товары в порядке убывания дневного спроса на них.
помогите, пожалуйста, нужно решение и блок-схема

[AlexanderKs]

А есть какие - нибудь ограничения по количеству товаров?

[AlexanderKs]

В смысле, по количеству видов товаров?

[Margo123321]

ограничений по количеству товаров нету

[VadEr]

Примерно так (X1 и X2 задайте сами):

program Demand;
const
   X1 = 20; {Это число наименований}
   X2 = 100; {Это число покупателей}
var
    N, F: array[0..X1] of integer;
    Mi :array[0..X2] of integer;
    i, j, max :integer;
    Ch:boolean;
begin
    For i := 0 to X2 - 1 do
        Mi[i] := Random(X1) + 1;
    For i := 0 to X1 - 1 do
        N[i] := i + 1;
    For i := 0 to X2-1 do
      begin
        j := 0;
        Repeat
        Ch := FALSE;
        if Mi[i] = N[j] then
           begin
             F[j] := F[j] + 1;
             Ch := TRUE;
           end
        else
           j := j + 1;
        until Ch;
      end;
    Repeat
    Ch := FALSE;
    for i := 0 to X1 - 2 do
        if F[i] < F[i+1] then
           begin
             max := F[i+1];
             F[i+1] := F[i];
             F[i] := max;
             max := N[i+1];
             N[i+1] := N[i];
             N[i] := max;
             Ch := TRUE;
           end;
    until not Ch;
   writeln(' ____________ ______');
   writeln('|Goods number|Demand|');
   writeln('|____________|______|');
   i := 0;
   repeat
   writeln('|     ',N[i]:5,'  | ',F[i]:4,' |');
   writeln('|____________|______|');
   i := i + 1;
   until i = X1;
   readln;
end.