Рандомно текст с файла

#include "math.h"
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{Randomize();    //генератор случайных чисел
 
    if(FileExists("Anekdot's.txt"))//если файл существует открываем
    Memo1->Lines->LoadFromFile("Anekdot's.txt");
 
    for(int i = 0; i < Memo1->Lines->Count; i++)
      Memo1->Lines->Strings[i].Trim();
      //избавляемся от пробелов по бокам
}
//---------------------------------------------------------------------------
//знак § редковато встречается в "анекдотах"
void __fastcall TForm1::SpeedButton1Click(TObject *Sender)
{
int        n;
AnsiString s;//строка для анекдота
 
    do{
      n = random(Memo1->Lines->Count); //Со строками не умею работать.. К сожалению.
      s = Memo1->Lines->Strings[n]; //Малик, это возможно 1 строка анекдота
           //---------------------------
    }while(s > "" && s[1] != '§');  //проверяем! не пусто и не '§' - не она!
    //----------------------------  //елси '§" - первая строка найдена - далее!
 
    while(Memo1->Lines->Strings[++n] != "")//если следующая не пустая
    {
        s += Memo1->Lines->Strings[n];     //прибавляем...  и... вся функция!
    }//-------------- return (s);---------------------------
 
    Label1->Caption = "Анекдот!\n";       //начало вывода
 
    for(int i = 2; i < s.Length(); i++)   //можно сделать выплывающий текст
    {
      Sleep(40);//неспеша, начиная со второго символа, пропуская '§'
      Label1->Caption = Label1->Caption + s[i]; 
      Application->ProcessMessages();           //нетормозя остальное
    }
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
    Memo1->Lines->SaveToFile("Anekdot's.txt");//сохраняем
}
//---------------------------------------------------------------------------

#include <iostream>
#include <cstdlib>
#include <ctime>
using namespace std;
 
char res[1024];
/////////////////////////////////////////////////////////////////
int countAnekdotes(const char *file_path)
{
    const int size = 255;
    char s[size];
    int res = 0;
 
 
    FILE *f = fopen(file_path, "rt");
    
    if (!f) return 0;
    
    while (!feof(f))
    {
        fgets(s, size, f);
        if ( s[0] == '\n' ) res++;
    }
    
    fclose(f);
    
    return res;
}
/////////////////////////////////////////////////////////////////
void getAnekdot(const char* file_path, int totalCount )
{
    const int size = 255;
    char s[size];
    int count = 0;
    int n;
 
    FILE *f = fopen(file_path, "rt");
    
    if (!f) exit(0);
 
    memset(res, 0, 1024);
 
    srand(time(0));
 
    n = rand()%totalCount;
 
    while (count != n)
    {
        fgets(s, size, f);
        if ( s[0] == '\n' ) count++;
    }
 
    fgets(s, size, f);
    while (s[0] != '\n')
    {
        strcat(res, s);
        fgets(s, size, f);
    }
  
    fclose(f);
}
/////////////////////////////////////////////////////////////////
int main()
{
    getAnekdot("na.txt", countAnekdotes("na.txt"));
    cout << res;
 
        return 0;
}

//-------------------------------------------------------
#include <iostream.h>
#include <fstream.h>
#include <string.h>
#include <windows.h>
 
//------------------------------
string getAnt(const char* fname)
{
string ant[1001];
char line[1024];
int rmax, rx;
 
    ifstream allf(fname);
    for(int i = 0; allf.getline(line, sizeof(line)); i++)
    { CharToOem(line, line);
      ant[i] = line;
      rmax = i;
    }
    allf.close();
    //----------------
    srand(time(0)); //почему работает без  <stdlib.h>?
    rx = random(rmax);
    //----------------
    return (ant[rx]);
}
//---------------------------
 
void main(void)
{
    cout  << getAnt("Anekdot's.txt") << endl;
    system("pause");
}
//------------------------------------------------------