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