program help;
uses crt;
type
    main=array[1..4,1..4] of integer;
    neg=array[1..17] of integer;

procedure take_mas(var mas:main);
var i,j:byte;
begin
writeln('Enter array ');
for i:=1 to 4 do
    begin
         for j:=1 to 4 do
             read(mas[i,j]);
         writeln;
    end;
end;

function number(mas:main):byte;
var i,j,n:byte;
begin
n:=0;
for i:=1 to 4 do
    for j:=1 to 4 do
        if mas[i,j]<0 then inc(n);
number:=n;
end;

procedure diagonal(n:byte; var mas:main);
var i,j:byte;
begin
for i:=1 to 4 do
    for j:=1 to 4 do
        if i=j then mas[i,j]:=n;
end;

procedure transport(var a:main);
var i,j:byte;
    p:main;
begin
for i:=1 to 4 do
    for j:=1 to 4 do
        p[j,i]:=a[i,j];

for i:=1 to 4 do
    for j:=1 to 4 do
        a[i,j]:=p[i,j];
end;

procedure mas_negativ(mas:main; var mas2:neg);
var i,j,n:byte;
begin
n:=0;
for i:=1 to 4 do
    for j:=1 to 4 do
        if mas[i,j]<0 then
           begin
                mas2[(i-1)*4+j]:=mas[i,j];
                inc(n);
           end;
mas2[17]:=n;
end;

procedure sort(var mas:neg);
var i,j,t:integer;
begin
     for i:=1 to 4 do
         for j:=4 downto i+1 do
             if mas[pred(j)] > mas[j] then
                begin
                     t:=mas[pred(j)];
                     mas[pred(j)]:=mas[j];
                     mas[j]:=t;
                end;
end;

Var mas:main;
      min:neg;
begin
take_mas(mas); {Заполняем массив}
diagonal(number(mas),mas); {сначала считаем количество отрицальных елементов (функция number),
                     а потом заменяем диагональные элементы на это число }
transport(mas);{транспортируем матрицу}
mas_negativ(mas,min);{формируем одномерный массив отрицательных елементов массива  mas}
sort(min); {сортируем еге}
end;