Losowanie graczy do drużyn

Witam, naszedł mnie taki pomysł żeby zrobić program, który będzie pytał o ilość graczy, następnie drużyn i przydzielał tych graczy do drużyn. Mam tylko problem z przydzielaniem tych graczy do drużyn. Prosiłbym o pomoc w napisaniu procedury przydzielającej.

Wymóżdżyłem coś takiego:

program druzyny;

uses crt;

type tdane=record
     gracz:string[30];
end;

var dane:array[1..10] of tdane;
    players, teams, x, i:byte;
    s, znak:char;

{}procedure podawanie;
begin
        write('Podaj ilo† graczy biorĄcych udzia w rozgrywce: ');
        readln(players);
        writeln;

        for i:=1 to players do
        begin
                write('Gracz numer ',i,': ');
                readln(dane[i].gracz);
        end;

        writeln;
        write('Podaj ilo† druľyn: ');
        readln(teams);
        writeln;
end;

{}procedure przydzielanie;
begin



end;



{}{}{}{}{}
begin
clrscr;
podawanie;
przydzielanie;
writeln('Druzyna pierwsza ',t1);
writeln('Druzyna druga ',t2);
end.

 

Błędzik:
Jak ktoś poda 11 graczy, to wywali go z programu.

Poprawka:

var dane:array of TDane; //Tablica dynamiczna
    players, teams, x, i:byte;
    s, znak:char;

procedure podawanie;
begin
        write('Podaj ilość graczy biorących udział w rozgrywce: ');
        readln(players);
        writeln;
        SetLenGth(Dane, Players + 2); //Albo 'Players + 1' już nie pamiętam ;)
        for i:=1 to players do
        begin
                write('Gracz numer ',i,': ');
                readln(dane[i].gracz);
        end;

        writeln;
        write('Podaj ilość drużyn: ');
        readln(teams);
        writeln;
end;

writeln('Druzyna pierwsza ',t1);
writeln('Druzyna druga ',t2);

A co to jest 't1' i 't2' ?

To t1, t2 było na próbę, do usunięcia i dzięki za poprawę :P