Concatenação de vetor (delphi) -

N consegui armazenar a uniao no 3o vetor!!!

Faça um programa que lê 2 vetores de 5 elementos cada. Crie um terceiro vetor que seja a união dos 2 vetores. Mostre o terceiro vertor.

type

 vet=array [1..5] of integer;

 vet2=array [1..10] of integer;

var

 veta,vetb:vet;

 vetc:vet2;

 i:integer;

begin

for i:=1 to 5 do

begin

write('Digite um valor ',i, ' do VETOR 1: '); readln(veta);

end;writeln;

for i:=6 to 10 do

begin

* write('Digite um valor ',i, ' do VETOR 2: '); readln(vetb**) ;*

end;writeln;

 

for i:= 1 to 5 do

begin

vetc:=veta;

end;

for i:= 6 to 10 do

begin

vetc:=vetb;

end;

 

for i:= 1 to 10 do

begin

* writeln(vetc**);*

end;

 

 

end.

 

//nao sei pq n funcionou!!!