Вывод в программе (преобразованная таблица) Опции

[Lepsik1777]

В самом конце программы делает нули заместо матрицы.
Не понимаю почему.
Две недели уже сижу над этим. =/
ML и MD сортирует положительные и отрицательные.
Все работает сначала нормально, но потом преобразованная таблица заполняется неверно!
Помогите пожалуйста

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

Это шутка?

Вы не формируете новую матрицу, вернее полностью её копируете. Без малейших изменений.
Вот где здесь формирование отличий A от TABL?

  {---------------Ввод элементов матрицы(положительные)---------------}
  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
          Write(a[i, j]: 4)
        else
          Write('  ');
        TABL[i, j] := A[i, j];
        writeln;
      end;       {3}
    end;              {2}

  end;

Почти так же и здесь

  {---------------Ввод элементов матрицы(отрицательные)---------------}
  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

        if a[i, j] < 0 then
          Write(a[i, j]: 4)
        else
          Write('   ');
      TABL[i, j] := A[i, j];
      writeln;

    end;         {2}
    readln;
  end;            {1}

Всё что мог, я уже диагностировал. Дальше вы должны предпринять меры по исправлению.