Ignorar número repetido em um vetor

[rugier732]

Bom, eu preciso de um subprograma para desempenhar tal função:

Por exemplo, eu tenho um vetor de ordem 5 com os seguintes numeros "1,1,1,1,1", mas pra imprimir eu tenho que ignorar os repetidos, nesse caso a "impresão" teria que ser de apenas um "1".

O que tenho é o seguinte:

procedure repetidos (var vet: vetor);
 var
  repetido: boolean;
  i, k: integer;
 begin
 	for i:=1 to 5 do
 	 for k:=1 to 5 do
 	 begin
 	 repetido:=false;
   if vet[i]=vet[k] then repetido:=true
	  else if repetido=false then write(vet[i]);
	 end; 
 end;

Grato por qualquer ajuda.

[devair1010]

@rugier732       seu código está bom, mas não precisa dessa variável de controle, vamos usar outro vetor para fazer as comparações e deletar os números repetidos nesse segundo vetor, para isso vamos copiar o vetor vet e colocar em vet2 .  então o código ficaria assim :

procedure repetidos (var vet: vetor);
var
  vet2  : array[1..5] of integer;
  i,k,g : integer;
  begin
    g=0;
    for i:=1 to 5 do
    begin
      vet2[i] := vet[i];
      if vet2[i]=0 then
      begin
        g:=1;
      end;
    end;
    for i:=1 to 5 do
    begin
      for k:=1 to 5 do
      begin
        if i <> k then
        begin
          if vet2[i]=vet2[k] then
          begin
            vet2[i]:=0;
          end;
        end;
      end;
    end; 
    if g=1 then
    begin
      write(" 0 ");
    end;
    for i:=1 to 5 do
    begin
      if vet2[i] <> 0 then
      begin
        write(vet2[i]," ");
      end;
    end;
  end;

 

[rugier732]

@devair1010 Obrigado, pela ajuda. E suas mudanças me ajudaram bastante! Grato!