Проблема

[Monte Kristo]

Помогите пожалуйста! Как сделать генератор случайных чисел, чтобы число состояло из 4 цифр и они не повторялись?

[Google2010]

icq:553-566-179
недорого

[Serge_Bliznykov]

var
  m : array[1..4] of integer;
  i, j, t : integer;
  FlagExist : boolean;
  Chislo : integer;
begin
   Randomize;
   {первая цифра не может быть нулём, будет от 1 до 9}
   m[1] := Random(9)+1;
   for i:=2 to 4 do begin
      repeat
        FlagExist := false;
        t := random(10);
        for j:=1 to i-1 do
          if m[j]=t then FlagExist := true;
      until Not FlagExist;
      m[i] := t;

   end;

   Chislo := m[1]*1000 + m[2]*100+m[3]*10 + m[4];

  writeln(Chislo);
end.