Forum Programosy

Witam, znalazłem na necie programik i przerobiłem go na własną potrzebę, otóż ma on dzielić wpisanych graczy do ośmiu teamów 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.

write(talia1[gracz1[i]],' ')

Po tym daj:

delay(5000)

i tak w każdej linii z graczX, gdzie X to kolejna liczba