Задали задачку, совсем не могу понять как нужно наполнять третий массив

[StoneGod]

"Даны два одномерных массива, создать третий в который поместить сначала четные элементы первых двух массивом затем нечетные."
подскажите как наполнять третий массив, пожалуйста.

[unbanned]

const
  n = 10;
  m = 10;

var
  first: array [1..n] of integer; 
  second: array [1..m] of integer;
  third: array [1..n + m] of integer;
  k: integer;

begin
  {заполнение 1-го и 2-го массива}
  k := 1;
  for i := 1 to n do
    if not odd(first[i]) then begin
      third[k] := first[i];
      inc(k);
    end; 
  for i := 1 to m do
    if not odd(second[i]) then begin
      third[k] := second[i];
      inc(k);
    end;
  
  for i := 1 to n do
    if odd(first[i]) then begin
      third[k] := first[i];
      inc(k);
    end; 
  for i := 1 to m do
    if odd(second[i]) then begin
      third[k] := second[i];
      inc(k);
    end;
  {вывод массива(-ов) на экран}
end.

ввод\вывод доделаешь сам... а так вроде всё

[TinMan]

Если порядок элементов не важен (в условии ничего не сказано, так что можно считать, что так), то можно за один проход сделать:

  j := 1;
  k:= m+n;
  for i:= 1 to n do
    if odd(a[i]) then begin
      c[k]:= a[i];
      Dec(k);
    end
    else begin
      c[j]:= a[i];
      Inc(j);
    end;
  for i:= 1 to n do
    if odd(b[i]) then begin
      c[k]:= b[i];
      Dec(k);
    end
    else begin
      c[j]:= b[i];
      Inc(j);
    end;

Четные останутся в изначальном порядке, а нечетные будут переставлены.

[unbanned]

можно и так, только тогда второй цикл будет от 1го до m

  for i:= 1 to m do
    if odd(b[i]) then begin
      c[k]:= b[i];
      Dec(k);
    end
    else begin
      c[j]:= b[i];
      Inc(j);
    end;

[TinMan]

unbunned, спасибо за исправление, +1