Ну если я правильно понял задание...
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]    if b[j]    end;
  c[i]:=m;
  p1^:=99999999;
end;
for i:=1 to 20 do
write(c[i],' ');
end.