Двумерные массивы

[Linker88]

Люди...Блин,прорыскал всю литературу,ничего не могу найти...Задали разбирать самим...Помогите пожалуйста написать программы
1.Заполнить двумерный массив 3х4 случайными числами из интервала[-50,-10].Вывести на экран ввиде таблицы.
2.Заполнить двумерный массив 2х5 целых чисел с помощью типизированной константы.Вывести на экран ввиде таблицы.
3.Заполнить двумерный массив 3х5 случайными числами из интервала [-20,100].Найти максимальный элемент массива.
4.Заполнить двумерный массив 5х4 целых чисел с помощью типизированной константы.Отсортировать элементы в каждом столбце массива по убыванию.


Заранее очень благодарю!

[DM_bite]

1.

program xa;
const n=3;
      m=4;
var a:array [0..n,0..m] of integer;
    i,j,s: integer;
    begin
    randomize;
    for i:= 0 to n do
    begin
     for j:= 0 to m do
     begin
     s:= random(10);
     a[i][j]:=s-50;
     Write(a[i][j],'_');
     end;
     WriteLn;
     end;
     ReadLn;
     end.

[DM_bite]

2.

program xa;
const n=2;
      m=5;
      a:array [0..n,0..m] of integer = ((1,2,3,4,5,6),(7,8,9,10,11,12),(13,14,15,16,17,18));
var i,j: integer;
    begin
    randomize;
    for i:= 0 to n do
    begin
     for j:= 0 to m do
     begin
     Write(a[i][j],'_');
     end;
     WriteLn;
     end;
     ReadLn;
     end.

3.

program xa;
const n=3;
      m=5;
var a:array [0..n,0..m] of integer;
    i,j,s,max: integer;
    begin
    randomize;
    for i:= 0 to n do
    begin
     for j:= 0 to m do
     begin
     s:= random(121);
     a[i][j]:=100-s;
     Write(a[i][j],'_');
     end;
     WriteLn;
     end;
     max:= a[n][m];
     for i:= 0 to n do
      for j:= 0 to m do
      begin
      if max<a[i][j] then max:= a[i][j];
      end;
      WriteLn(max);
     ReadLn;
     end.

[Linker88]

Спасибо большое!Очень благодарен