Упорядочить строку целочисленной прямоугольной матрицы

[Woodyy]

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

[Hacker19_90]

Что касаемо функции:

......
const
    m = ???;
    n = ???;
Type 
    Massiv = array[1..m,1..n] of integer;
var
    Mas: Massiv;
Function Poisk (pMassiv: Massiv; m, n: byte): byte;
var
    i, j: byte;
    flag: boolean;
begin
    flag := false;
    for i := 1 to n do
    begin
        for j := 1 to m do
        begin
            if (pMassiv[j,i] < 0) then flag := true;
        end;
        if (flag = false) then
        begin
             Poisk := i;
             break;
        end
        else Poisk := 0;
    end;
end;

[Hacker19_90]

Сообщение от Woodyy

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

Это как вообще??? приведите пример!!!!

[Woodyy]

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

[Woodyy]

за второе задание БОЛЬШОЕ СПАСИБО

[Hacker19_90]

Надо найти сначала общий для всех строк элемент, или он вводится пользователем????

[Woodyy]

я незнаю вот это задание и всё, больше не чего нет

[Hacker19_90]

Даже компилятора????:D

[Woodyy]

походу нет, а что не получается написать если по заданию??