Три способа сортировки ДВУМЕРНОГО массива в одной программе

[ATAMAH]

Здравствуйте. Получил задание составить программу реализующую обработку двумерного числового произвольного массива тремя способами сортировки (пузырька, вставкой, выбора). Честно признаюсь что дуб я в этом деле, а вникнуть и решить самому времени уже не хватает. Кое-что напридумывал для начала (правда не знаю будет ли это работать). Очень нужно три процедуры сортировки двумер. массива, чтоб хоть что-то слепить.
Вот начало моей программы:

Код: Выделить всё

program zadanie;

uses crt;

const p=10;

type mas=array[1..p, 1..p] of integer;

var massiv: mas;

procedure InsertMas(var mass: mas);

var i,j,n,s: integer;
    ch: char;
begin
    writeln('Введите колисчества строк '); readln(n);
     writeln('Введите количество столбцов '); readln(s);
      for i:=1 to n do
       for j:=1 to s do
        begin
          write('Введите [',i,',',j,']-ый элемент массива: ');  readln(mass[i,j]);
        end;
end;

procedure PrintMas(mass: mas);

var i,j,n,s:integer;

begin
     for i:=1 to n do
      for j:=1 to s do
       begin
        gotoxy(j*5+35,i);
        writeln(mass[i,j]);
       end;
end;

BEGIN
     clrscr;
     InsertMas(massiv);
     PrintMas(massiv);
      repeat
  writeln('Выберите вариант сортировки:');
  writeln('1 - Пузырька 1');
  writeln('2 - Вставки 2');
  writeln('3 - Выбора 3');
  writeln;
  write('...');
  ch:=readkey;
 until (ch='1') or (ch='2') or (ch='3');
 case ch of
  '1': sort1;
  '2': sort2;
  '3': sort3;
 end;
 readkey;
     readln;
     readln;
END. 

помогите пжлст курсовик мой идет прахом(((