Из многомерного массива создать одномерный - Pascal ABC

Формулировка задачи:

Всем Привет, может это покажется смешным, но не могу создать из многомерного массива одномерный( Сижу уже час блин( Само задание звучит так: Составить программу, записывающий все положительные элементы двумерного массива А в одномерный массив В, а отрицательные в одномерный массив С. Но мне нужен только алгоритм преобразования многомерного массива в одномерный, без использования функции move. Заранее благодарю за помощь) Нашел в чем проблема!) Вот код) Все работает)

program lab5_12;
uses crt;
var
  i,j,d,f,count1,count2:integer;
  a:array[1..4, 1..4] of integer;
  b,c,k:array[1..16] of integer;
begin
  clrscr;
  randomize;
  for i:=1 to 4 do
    for j:=1 to 4 do
      a[i,j]:=random(90)-40;
  writeln('Получившийся массив: ');
  for i:=1 to 4 do
    begin
      for j:=1 to 4 do
        begin
          write(a[i,j],' | ');  
        end;
      writeln;
    end;
  d:=1;
  f:=1;
  for i:=1 to 4 do
    begin
      for j:=1 to 4 do
        begin
          if a[i,j] > 0 then
            begin
              b[d]:=a[i,j];
              inc(count1);
              inc(d);
            end
          else if a[i,j] < 0 then
            begin
              c[f]:=a[i,j];
              inc(count2);
              inc(f);
            end;
        end;
    end;
  write('Массив из положительных элементов массива: '); 
  write('[');
  for d:=1 to count1 do
    begin
      write(b[d],' ');
    end;
  writeln(']');
  write('Массив из отрицательных элементов массива: ');
  write('[');
  for f:=1 to count2 do
    begin
      write(c[f],' ');
    end;
  writeln(']');
  readkey;
end.

Решение задачи: «Из многомерного массива создать одномерный»

Листинг программы

Var iArr    : Array[1..10,1..10] of integer;
Var oPos   : Array[1..100] of integer;
Var oNeg  : Array[1..100] of integer;
Var pPos,pNeg,i,j : integer;
 
     // Заполнение двумерного массива ...
 
     // разбрасывание двумерного по двум одномерным
 
     pPos:=0;
     pNeg:=0;
 
     for i:=1 to 10 do
         for j:=1 to 10 do begin
              if iArr[i,j]<0 then begin
                 pNeg:=pNeg+1;
                 oNeg[pNeg]=iArr[i,j];
              end;
              if iArr[i,j]>0 then begin
                 pPos:=pPos+1;
                 oPos[pPos]=iArr[i,j];
              end;
           end;

Объяснение кода листинга программы

Создается двумерный массив iArr размером 10x10.
Создаются три одномерных массива: oPos, oNeg и pPos.
Заполняется двумерный массив iArr.
Создаются две переменные-счетчика: pPos и pNeg, которые будут использоваться для подсчета количества отрицательных и положительных чисел соответственно.
Инициализируются счетчики pPos и pNeg нулем.
Запускается цикл, который проходит по каждой ячейке двумерного массива iArr.
Внутри цикла проверяется значение элемента iArr[i,j].
Если значение элемента меньше нуля, то увеличивается счетчик pNeg на единицу и элемент iArr[i,j] копируется в одномерный массив oNeg.
Если значение элемента больше нуля, то увеличивается счетчик pPos на единицу и элемент iArr[i,j] копируется в одномерный массив oPos.
После завершения цикла, значения счетчиков pPos и pNeg будут содержать количество положительных и отрицательных чисел соответственно.
Конечная цель программы - использовать значения счетчиков для создания одномерного массива из полученных данных.