Программка в Паскале. Помогите решить

[TpaXmopucm]

Программка в Паскале. Помогите решить

Помогите пожалуйста!

Обработка двумерных массивов. Методы сортировки.

Цель задания:
1. Использование массивов.
2. Обработка алгоритмов сортировки.

Постановка задачи:
1. Написать программу, которая работает с любыми численными массивами.
2. Входную информацию и результаты вывести на печать.

Методические указания:
Исходные данные должны включать и положительные числа, и отрицательные, и нули.

ВАРИАНТЫ ЗАДАНИЯ

2. Дан двумерный массив 4×5. Упорядочить массив по невозрастанию элементов последнего столбца.

 

[fagot86]

Вот:

uses crt;
const n=4;m=5;
var i,j,k:integer;
    a:array[1..n,1..m] of integer;
begin
clrscr;
textcolor(2);
     for i:=1 to n do
       begin
            for j:=1 to m do
              begin
                   a[i,j]:=(random(20)-10);
                   if j=m then textcolor(4);
                   write(a[i,j]:5);
                   textcolor(2);
              end;
            writeln;
       end;
     for i:=1 to n do
         for j:=1 to n-1 do
             if a[j,m]<a[j+1,m] then
                begin
                     k:=a[j,m];
                     a[j,m]:=a[j+1,m];
                     a[j+1,m]:=k;
                end;
     writeln;
     for i:=1 to n do
       begin
            for j:=1 to m do
                begin
                     if j=m then textcolor(4);
                     write(a[i,j]:5);
                     textcolor(2);
                end;
            writeln;
       end;
end.