Отсортировать элементы массива,расположенные до max,в порядке убывания
Pacsal Turbo 84

Using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
namespace ConsoleApplication1 {
class Program
    { static void Main(string[] args)
{
Console.BackgroundColor = ConsoleColor.Black;
            Console.ForegroundColor = ConsoleColor.Green;
            Console.WriteLine();
            Console.WriteLine("Hello, World!");
// Ожидание нажатия клавиши Enter перед завершением работы Console.ReadLine();
        }
    }
 }

Данная программа откроет консоль и будет выводить текст "Hello, World". Текст можно изменить, а комментарий удалить.

program picaso; uses crt;
type matrice=array[1..10,1..10] of integer;
var i,j,n,m,k:integer;
    a:matrice;
procedure rea(var a:matrice);
begin
    writeln('n: ');readln(n);
    writeln('m: ');readln(m);
    writeln('ведите ',n*m,' элементов');
    for i:=1 to m do
        for j:=1 to n do
        begin
            write('A[',i,',',j,']=');
            readln(A[i,j]);
        end;    
end;
procedure writ;
begin
    writeln('Массив A');
    for i:=1 to m do
    begin
        for j:=1 to n do
            write(A[i,j],'    ');
            writeln;
    end;
end;
procedure calc(a:matrice );
begin
    
    for j:=1 to n do
    begin
    k:=0;
        for i:=1 to m do
            
            if a[i,j] > 0 then inc(k);
            writeln('столбец :',j,' положительные элементы : ',k);
    end;
end;
begin clrscr;
    rea(a);
    writ;
    calc(a);
    readln;
end.