Даны массивы А и В. В массив С перенести четные элементы массива А, и нечетные элементы массива В- Pascal(Паскаль)

uses crt;
var a,b,c:array[1..40] of integer;
    n,m,i:byte;
begin
randomize;
n:=20;
writeln('Массив А:');
for i:=1 to n do
 begin
  a[i]:=random(40)+10;
  write(a[i]:4);
 end;
writeln;
writeln;
writeln('Массив B:');
for i:=1 to n do
 begin
  b[i]:=random(40)+10;
  write(b[i]:4);
 end;
writeln;
writeln;
m:=0;
for i:=1 to n do
if a[i] mod 2=0 then
 begin
  m:=m+1;
  c[m]:=a[i];
 end;
for i:=1 to n do
if odd(b[i]) then
 begin
  m:=m+1;
  c[m]:=b[i];
 end;
writeln('Массив С:');
for i:=1 to m do
write(c[i]:4);
end.

uses crt;
const n=20; m=32;
var j,i:integer;
b:array[1..m] of integer;
a:array[1..n] of integer;
c:array[1..n+m] of integer;
begin
clrscr; randomize;
writeln('missive A');
for i:=1 to n do
 begin
 a[i]:=random(99);
 write(a[i]:3);
 end;
writeln;
writeln('Massive B');
for i:=1 to m do
 begin
 b[i]:=random(99);
 write(b[i]:3);
 end;
writeln;
j:=0;
for i:=1 to n do
 if (a[i] mod 2)=0 then
 begin
 inc(j);
 c[j]:=a[i];
 end;
for i:=1 to m do
 if (b[i] mod 2)<>0 then
 begin
 inc(j);
 c[j]:=b[i];
 end;
writeln('Massive C');
for i:=1 to j do
write(c[i]:3);
readkey;
end.