Функция в программе, Процедуры, зачетная - Free Pascal Опции

[DDOn]

Ребят, вот сама программа
В ней процедуры
Нужно написать функцию
Возможно ли поменять изменить процедуры Ml и Md
На функцию, или же, если не брать из процедур, то функцию иную написать?
Спасите безумца, ибо зачетная работа и долго над ней уже безрезультатно сижу

[Федосеев Павел]

Что-то очень похожая программа на эту.

Что не так с многострадальными Ml и Md?

  {---------------Процедура, создающая новую матрицу из положительных элементов---------------}
  procedure Ml(var TABL: Matr2);
  var
    i, j: integer;
  begin{1}
    gotoxy(3, 4);
    textattr := yellow;
    writeln('Положительные элементы: ');

    for i := 1 to n do
    begin    {2}

      for j := 1 to k do
      begin    {3}
        if a[i, j] > 0 then
        begin  {4}
          TABL[i, j] := A[i, j];
          Write(tabl[i, j]: 4);

          Write('  ');

          writeln;
        end;  {4}
      end;   {3}
    end; {2}
  end; {1}



  {---------------Процедура, создающая новую матрицу из отрицательных элементов---------------}
  procedure Md(var TABL: Matr2);
  var
    i, j: integer;
  begin    {1}
    gotoxy(3, 4);
    writeln('Отрицательные элементы: ');

    for i := 1 to n do
    begin     {2}

      for j := 1 to k do
      begin  {3}
        if a[i, j] < 0 then
        begin  {4}
          TABL[i, j] := A[i, j];
          Write(tabl[i, j]: 4);

          Write('   ');

          writeln;
        end;  {4}
      end;  {3}
    end;  {2}
  end;   {1}