Как осуществить поиск и исправление повторов в массиве delphi.

[megaskull]

Здравствуйте, не могу сообразить как осуществить поиск и исправление повторов в массиве. Задача такова: На экран выводится список студентов(16 человек) и рядом со списком, после нажатия кнопки выдается рандомное число из массива от 1 до 30, числа не должны повторяться. С выводом чисел я разобрался, но иногда попадаются повторы, нужно от них избавится и заменить на другое число.
Вот код который я написал:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    BitBtn1: TBitBtn;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    Label29: TLabel;
    Label30: TLabel;
    Label31: TLabel;
    Label32: TLabel;
    Button1: TButton;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  k: integer;
  mass:array [1..30] of integer;

implementation

{$R *.dfm}


procedure TForm1.BitBtn1Click(Sender: TObject); \\кнопка вывода чисел
begin
Randomize();


for k:=1 to 16 do
 begin
 mass[k]:=1+random(30);
 end;
 k:=2;
 Label17.Caption:=IntToStr(mass[k-1]);
 Label18.Caption:=IntToStr(mass[k]);
 Label19.Caption:=IntToStr(mass[k+1]);
 Label20.Caption:=IntToStr(mass[k+2]);
 Label21.Caption:=IntToStr(mass[k+3]);
 Label22.Caption:=IntToStr(mass[k+4]);
 Label23.Caption:=IntToStr(mass[k+5]);
 Label24.Caption:=IntToStr(mass[k+6]);
 Label25.Caption:=IntToStr(mass[k+7]);
 Label26.Caption:=IntToStr(mass[k+8]);
 Label27.Caption:=IntToStr(mass[k+9]);
 Label28.Caption:=IntToStr(mass[k+10]);
 Label29.Caption:=IntToStr(mass[k+11]);
 Label30.Caption:=IntToStr(mass[k+12]);
 Label31.Caption:=IntToStr(mass[k+13]);
 Label32.Caption:=IntToStr(mass[k+14]);

for k:=1 to 16 do
 begin
 if mass[k]=mass[k+1]
   then mass[k]:=1+random(30);
 end;


end;

end.

Вот такие пироги.

[Sibedir]

Нужно изначально создать массив заполненный по порядку, а потом его перемешать
http://yandex.ru/yandsearch?text=%D0...+delphi&lr=197

[Алексей_2012]

вот вопрос, зачем столько меток? И вас не устроило бы заполнение меток в цикле? И кстати, если оператор 1, то после цикла или условия можно begin..end не ставить. И еще, я могу вам сделать с помощью вывода в МЕМО, а не в метку

выводит в компонент Tmemo 16 чисел в диапазоне от 0 до 30 и без повторения, если помог, то весы слева...

[megaskull]

Сообщение от Sibedir

Нужно изначально создать массив заполненный по порядку, а потом его перемешать
http://yandex.ru/yandsearch?text=%D0...+delphi&lr=197

Этот способ я так и не понял...

вот вопрос, зачем столько меток? И вас не устроило бы заполнение меток в цикле? И кстати, если оператор 1, то после цикла или условия можно begin..end не ставить. И еще, я могу вам сделать с помощью вывода в МЕМО, а не в метку

выводит в компонент Tmemo 16 чисел в диапазоне от 0 до 30 и без повторения, если помог, то весы слева...

Вы очень помогли, доделал вашу программу и теперь все как нужно. По поводу меток, я только начинаю учить дельфи и поэтому про memo еще не знал даже близко Отдельное спасибо за знакомство с этим компонентом

[Алексей_2012]

да не за что, могу вам помогать изучать другие компоненты (лучше не мемо, а ричедит), на весы жать не обязательно...