рандом name

string name[1000];
int r[1000];
int k=0, n, rd;

//Читаем в массив файл
if (fopen ("c:\name.txt", "r")!=0)
{
while (freadline(name[k])!=0)k++;
fclose();
}

//Обнуляем флаги которые будут заполняться 1 когда имя использовалось уже
for (n=0; n<k; n++)r[n]=0;


loop()
{
a: rd=rand(0, k);//получаем рандомное число
if (r[rd]==1)goto a;//если такое имя уже имеет флаг 1 получаем опять новое число
r[rd]=1;//пишем флаг для имени этого 1
messagebox (name[rd]);
}



//messagebox (name[2]);

/*
формат name.txt

леха
петя
вася

*/

string name[1000];
int r[1000];
int k=0, n, rd;

//Читаем в массив файл
if (fopen ("c:\name.txt", "r")!=0)
{
while (freadline(name[k])!=0)k++;
fclose();
}

//Обнуляем флаги которые будут заполняться 1 когда имя использовалось уже
for (n=0; n<k; n++)r[n]=0;

sleep(500);
a: rd=rand(0, k);//получаем рандомное число
if (r[rd]==1)goto a;//если такое имя уже имеет флаг 1 получаем опять новое число
r[rd]=1;//пишем флаг для имени этого 1
writeclipboard(name[rd]);
sleep(500);