Использование исключительных ситуаций в программировании

[Глеб Иванов]

Дана матрица размером NxM. Упорядочить ее строки по возрастанию их первых элементов.

program N60094766; 
{$APPTYPE CONSOLE} 
var a:array[1..100, 1..100] of integer; 
    n, m, i, j, k, imin, jmin, jmax, tmp:integer; 
begin 
  write('Введите кол-во строк матрицы N: '); 
  readln(n); 
  write('Введите кол-во столбцов матрицы M: '); 
  readln(m); 
  writeln('Заданная матрица: '); 
  randomize; 
  for i := 1 to n do 
  begin 
    for j := 1 to m do 
    begin 
      a[ i, j ] := random(101) - 50; 
      write(a[ i, j ]:4) 
    end; 
    writeln 
  end; 
  for i := 1 to n - 1 do 
  begin 
    for k := i to n do 
    begin 
      for j := 1 to m do 
        if (j = 1) or (a[ k, j ] > a[ k, jmax ]) then 
          jmax := j; 
      if (k = i) or (a[ k, jmax ] < a[ imin, jmin]) then 
      begin 
        imin := k; 
        jmin := jmax 
      end; 
    end; 
    if i <> imin then 
      for j := 1 to m do 
      begin 
        tmp := a[ i, j ]; 
        a[ i, j ] := a[ imin, j ]; 
        a[ imin, j ] := tmp 
      end; 
  end; 
  writeln('Преобразованная матица: '); 
  for i := 1 to n do 
  begin 
    for j := 1 to m do 
      write(a[ i, j ]:4); 
    writeln 
  end; 
  readln 
end.

Нужно переделать под тему искл. ситуаций и поставить на форму.. буду благодарен за помощь и подсказки !

[Глеб Иванов]

поможет кто или нет ?