varios numeros

[guilhermerr 0]

alo to tentando encontrar os numeros de um vetor contidos no intervalo de 1 A 10 e fiz o seguinte codigo,mas nao retorno numero nenhum da pra dizer ai o que esta errado?

 

procedure TForm5.Button1Click(Sender: TObject);
var
vetor: array[1..5] of integer;
i: integer;
acha: integer;
retorno: array[1..10] of integer;
j: integer;
begin
vetor[1]:= 2;
vetor[2]:= 5;
vetor[3]:= 11;
vetor[4]:= 14;
vetor[5]:=15;

acha:=1;
    repeat

   for i := 1 to 5  do
     begin


       if vetor[i]= acha then

           retorno [acha]:= vetor[i]

           else
           retorno[acha]:= 0;



     acha:= acha+1
until  acha<=10;
     end;
for j := 1 to 10 do
   begin
     showmessage(inttostr(retorno[i]));
   end;
end;

[AdilsonD 0]

var

vetor: array[1..5] of Integer;

i: Integer;

acha: Integer;

retorno: array[1..10] of Integer;

j: Integer;

begin

vetor[1] := 2;

vetor[2] := 5;

vetor[3] := 11;

vetor[4] := 14;

vetor[5] := 15;

 

acha := 1;

 

repeat

 

retorno[acha] := 0;

 

for i := 1 to 5 do

begin

if vetor = acha then

begin

retorno[acha] := vetor;

Break;

end;

end;

 

Inc(acha); // ou acha = acha + 1;

 

until acha > 10;

 

for j := 1 to 10 do

ShowMessage(IntToStr(retorno[j]));

 

end;