Então ve se ta certinho aqui
Program IntersecaoConjuntos ;
uses CRT;
type
vetor = array[1..100] of real;
procedure LeiaVetor(
tam: integer;
var V: vetor );
var i: integer;
begin
for i:=1 to tam do
read(V);
end;
procedure ImprimeVetor(
tam: integer;
V: vetor);
var i: integer;
begin
for i:=1 to tam do
write(V:2:2, ' ' );
end;
procedure DetermineConjuntoIntersecao
(
A, B: vetor;
var I: vetor;
m, n: integer;
var p: integer
);
var ii, k: integer;
Achou: boolean;
Begin
p:=0;
for ii:=1 to n do
Begin
k:=1;
Achou:= false;
while (k<=m) and (not Achou) do
Begin
if (A[ii] = B[k]) then
begin
p:=p+1;
I[p]:=A[ii];
Achou:=true;
end;
k:=k+1;
End;
End;
End;
var
m,n,p: integer;
A,B: vetor;
I: vetor;
Begin
ClrScr;
writeLn( 'Determina a interseção de dois conjuntos');
writeLn;
writeLn( 'Entre com o tamanho do primeiro conjunto:');
read(n);
writeLn;
writeLn( 'Entre com o tamanho do segundo conjunto:');
read(m);
writeLn( 'Entre com os elementos do primeiro conjunto:');
LeiaVetor(n, A);
writeLn( 'Entre com os elementos do segundo conjunto:');
LeiaVetor(m, B);
DetermineConjuntoIntersecao(A,B,I,m,n,p);
writeLn( 'Conjunto Interseção:');
ImprimeVetor(p,I);
writeLn;
End.