Wszystko jest ok tylko chciałbym żeby nicki graczy pojawiały się nie wszystkie na raz, ale pojedynczo, raz np na 5 sekund. Dałoby sie tak zrobić? Pomóżcie 
a oto program:
- Kod: Zaznacz wszystko
uses crt;
type tab=array[1..4]of integer;
tab1=array[1..32]of string;
const talia1:tab1=('ups?','VooDoo','Quo','eMaNeTeWu','Who You Wanna Be?',
'WdoWa','psm','elo,,','Wilkq','Viva_United ','aLan[y]a!?','CIENIU','mielonee?',
'LeO','Davids bialy mudzin','DoboSz^','HaWK','ThrrU','ThriLL','Filipi',
'Prz3t3rm!nOw4nY','KosaBdg','Longas','z4shi','Yosemite Sam','Borubar',
'Derektor','RedMax','XamiL','Kasia','Smoke Hard, Go High #-]','.KrYcH4');
const mx=32;
var gracz1,gracz2,gracz3,gracz4,gracz5,gracz6,gracz7,gracz8:tab;
label powt;
var i,n,k,liczba,g1,g2,g3,g4,g5,g6,g7,g8:integer;
los:array[1..mx]of integer;
begin
for i:=1 to mx do los[i]:=0;
clrscr;
k:=0;
Randomize;
powt: repeat
k:=k+1;
liczba:=Random(mx)+1;
if k=1 then begin los[1]:=liczba;end;
if k>1 then
begin
for n:=k-1 downto 1 do
begin
if los[n]=liczba then begin k:=k-1;GoTo powt;end;
end;
end;
los[k]:=liczba;
until k=mx;
n:=0;g1:=0;g2:=0;g3:=0;g4:=0;g5:=0;g6:=0;g7:=0;g8:=0;
repeat
g1:=g1+1;n:=n+1;
gracz1[g1]:=los[n];
g2:=g2+1;n:=n+1;
gracz2[g2]:=los[n];
n:=n+1;g3:=g3+1;
gracz3[g3]:=los[n];
n:=n+1;g4:=g4+1;
gracz4[g4]:=los[n];
n:=n+1;g5:=g5+1;
gracz5[g5]:=los[n];
n:=n+1;g6:=g6+1;
gracz6[g6]:=los[n];
n:=n+1;g7:=g7+1;
gracz7[g7]:=los[n];
n:=n+1;g8:=g8+1;
gracz8[g8]:=los[n];
until n=32;
writeln(' Losowanie do ligi 5on5');
writeln;
writeln;
writeln('Team 1:');
for i:=1 to 4 do
write(talia1[gracz1[i]],' '); writeln;
writeln('Team 2:');
for i:=1 to 4 do
write(talia1[gracz2[i]],' '); writeln;
writeln('Team 3:');
for i:=1 to 4 do
write(talia1[gracz3[i]],' '); writeln;
writeln('Team 4:');
for i:=1 to 4 do
write(talia1[gracz4[i]],' '); writeln;
writeln('Team 5:');
for i:=1 to 4 do
write(talia1[gracz5[i]],' '); writeln;
writeln('Team 6:');
for i:=1 to 4 do
write(talia1[gracz6[i]],' '); writeln;
writeln('Team 7:');
for i:=1 to 4 do
write(talia1[gracz7[i]],' '); writeln;
writeln('Team 8:');
for i:=1 to 4 do
write(talia1[gracz8[i]],' '); writeln;
writeln;
writeln;
writeln(' by eMaNeTeWu :d');
readkey;
end.
