Многофункциональная программа с выделением процедур pascal

[Biggie Smalls]

В прямоугольной матрице в каждом столбце поставить на первое место максимальный элемент столбца и, если среди полученных элементов первой строки не окажется элементов, по модулю меньших заданной величины, разделить элементы последний строки на соответствующие элементы первой строки.

мне бы блок схему, а там я бы сам разобрался.
спасибо за внимание!

[phomm]

как именно надо разбить на процедуры ? я могу выделить такие : чтение матрицы (ввод с консоли данных/ввод с консоли имени файла и его прочтение) и величины для проверки. процедура всплытия - вложенный цикл for по строкам-по столбцам, в нём поиск максимального значения в столбце, примерно так:

procedure ...
var i, j, max, maxid, tmp : integer;
begin
max := 0;
for i:= 0 to matrixwidth // cols
  do begin
  for j := 0 to matrixheight // rows
    do begin
    if matrix[j,i]> max 
      then begin
      max := matrix[j,i];
      maxid := j;
      end;
    end;
  tmp:= matrix[0,i];
  matrix[0,i] := matrix[maxid,i];
  matrix[maxid,i] := tmp;
  max := 0 ;
  end;
end;

потом процедура дележки, тоже циклы , но 2 разных и оба только по столбцам, первый - проверяешь условие вроде такого boolean_condition := boolean_condition or (abs(matrix[i,0]) < value) изначально boolean_condition = false; в процессе цика при нахождении в матрице значения по модулю меньше величины , то ей присваивается true, и уже не меняется (из-за OR), можно даже break поставить.
Второй цикл - сама дележка, если boolean_condition ложь, то начать цикл дележки, где для каждого столбца разделить последний элемент на первый (в данном месте надо понять, что в итоге получается число <=1, значит матрица должна быть объявлена с типом real )

Ну и осталось только по порядку вызвать эти функции из главной программы

Пиши код и скидывай сюда ) поразмыслим, может где улучшить можно )