[XeQtR]

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

Код:

var
 pin: array [1..13] of Integer;
 i: Integer;
 st: string;
begin
 Randomize;
 st:='';
 for i:=1 to 13 do
   pin[i]:=random(10);
 for i:=1 to 13 do
   st:=st+IntToStr(pin[i]);//здесь стоял символ "1"
 edit1.Text:=st;
 edit1.readonly:=true;
end;

оно?

да ! спс ...