Для записи текста использовался 256-символьный алфавит. каждая страница содержит 43 строк по 290 символов в строке

//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
const n = 10;
var a:array[1..n] of integer;
i,j:integer;
begin
// Заполним массив сл. числами
  for i:=1 to n do begin
    a[i]:=random(0,99); write(a[i]:4);
  end;
  writeln;
//сортировка массива по убыванию последней цифры.
  for i := 1 to n-1 do
    for j := 1 to n-i do
      if (a[j] mod 10) > (a[j+1]mod 10) then
      swap(a[j],a[j+1]);
  writeln('Отсортированный массив : ');
  for i:=1 to n do write(a[i]:4);   
end.

Тестовое решение:
  14  60  69   6  10  77  66  67  44  84
Отсортированный массив :
  60  10  14  44  84   6  66  77  67  69

Const m = 3;
n = 4;
var a: array[1..m, 1..n] of integer;
b: array[1..n] of integer;
i,j,k,maxm:integer;
begin
  for i:=1 to m do begin
    for j:=1 to n do begin
      write('A[',i,',',j,']= ');
      readln (a[i,j]);
      if a[i,j]<=0 then b[j]:=-1;
    end;
  end;
 
  for i:=1 to n do begin
    if b[i]=0  then begin
      writeln('Столбец №',i,' Все положительные');
      break;
     end
     else
      if i=n then writeln('Таких столбцов не было');
    end;
  for i:=1 to m do begin
    for j:=1 to n do write(a[i,j]:5);
    writeln;
  end;
end.

Тестовое решение:
A[1,1]= 7
A[1,2]= 2
A[1,3]= 1
A[1,4]= -9
A[2,1]= -2
A[2,2]= 2
A[2,3]= 4
A[2,4]= 1
A[3,1]= 7
A[3,2]= 2
A[3,3]= 3
A[3,4]= 1
Столбец №2 Все положительные
    7    2    1   -9
   -2    2    4    1
    7    2    3    1