1080 

  1080 

  1081 	while (Count > 0) do

  1081 	while (Count > 0) do

  1082 		begin

  1082 		begin

  1083 		i:= GetRandom(Count);

  1083 		i:= GetRandom(Count);

  1084 		FindPlace(ar[i], false, 0, 2048);

  1084 		FindPlace(ar[i], false, 0, 2048);

  1085 		ar[i]^.Pos:= GetRandom(19);

  1086 		ar[i]^.Pos:= GetRandom(19);

  1086 		ar[i]:= ar[Count - 1];

  1087 		ar[i]:= ar[Count - 1];

  1087 		dec(Count)

  1088 		dec(Count)

  1088 		end

  1089 		end

  1089 	end

  1090 	end