Даны два массива а. б. создайте массив с расположенный в порядке возрастания

Ну если я правильно понял задание...
var a,b:array[1..10] of integer;
c:array[1..20] of integer;
i,j,m:integer;
p1:^integer;
begin
for i:=1 to 10 do
read(a[i]);
for i:=1 to 10 do
read(b[i]);
for i:=1 to 20 do begin
  m:=9999999;
  for j:=1 to 10 do begin
    if a[j]<m then begin m:=a[j]; p1:[email protected][j]; end;
    if b[j]<m then begin m:=b[j]; p1:[email protected][j]; end;
    end;
  c[i]:=m;
  p1^:=99999999;
end;
for i:=1 to 20 do
write(c[i],' ');
end.