Procedure ReadToArray;
Var
PhraseFile : TextFile;
FileName : String;
Begin
FileName := 'C:\Dev-Pas\MyPhrases.txt';
AssignFile (PhraseFile, FileName);
Reset (PhraseFile);
While Not EoF do
      Begin
           Read(PhraseFile);
           For Index := 1 To 24
           Do Writeln(RandomPhraseArray[Index]); {This is where I'm stuck, I'm not sure what to put on this line.}
      End;
Close (PhraseFile);
End;

procedure LoadWords(FilePath : string);
  var
    WordFile : TextFile;
    Phrase : string;
    Length : integer;
  begin
    Length := 0;
    AssignFile (WordFile, FilePath);
    {$I-} Reset (WordFile); {$I+}
    if (IOResult <> 0) then
        WriteLn('Error loading ' + FilePath)
    else
      begin
        Randomize();
        while not EoF (WordFile) do
          begin
            Readln(WordFile, Phrase);
            Length := Length + 1;
            SetLength(PhraseDictionary, Length);
            PhraseDictionary[Length-1] := Phrase;
          end;
      CloseFile (WordFile);
    end;
  end;
 
 
procedure RandomPhrase();
begin
  if (length(PhraseDictionary) > 0) then
    NewPhraseEntered(PhraseDictionary[Random(Length(PhraseDictionary))])
  else
    WriteLn('No phrases loaded to pick from!');
end;

Function GetRandomPhrase : String;
Var
ArrayIndexNo : Integer;
NewRandomPhrase : String;
Begin
Randomize;
ArrayIndexNo := random(24) + 1;
Write(ArrayIndexNo);
NewRandomPhrase := RandomPhraseArray[ArrayIndexNo];
GetRandomPhrase := NewRandomPhrase;
End;

 
Program Solution01;
{
we create a new array type,every element will contain
one string that max 20 char,and contains 10 items.
}
Type TArray=Array[0..9]Of String[20];
 
{I put the text file to the c:\,you can modify the file's path}
Const FileName = 'C:\MyPhrases.txt';
 
{the variables}
Var PhraseArray:TArray;{reading into it from a text file}
    TheWords:TArray;   {reading from it to a text file}
    RandomWords:TArray;{this will store the random words}
    Counter:Byte;  {will count the lines}
    i,j:Byte;     {loop variable,index}
    PhraseFile:Text;{your text file's variable}
    h:String; {this will one line}
 
 
{ RandomNumbers Function:
this function will generate random integer number
between 1 and the added number(this will the counter var)}
Function RandomNumbers(RN:Byte):Byte;
Var k:Byte;
Begin
   k:=Random(9)+1;
   RandomNumbers:=k;
End;
 
 
{ FileRead Procedure:
we direct leave out the 'assigning'
cause the main program already did it when it's called
It has 3 argument 1,One text file
                  2,One array
                  3,One counter variable
}
Procedure FileRead(Var FR:Text;Var FR1:TArray;Var FR2:Byte);
Begin
   {$I-}       {Input Output check off}
   Reset(FR); {open for reading}
   {$I+}       {Input Output check on}
   If (IoResult = 0) Then Begin
      FR2:=0;
      While (EoF(FR)=False) Do Begin
         ReadLn(FR,h);
         {fill the array with row}
         FR1[FR2]:=h;
         {write the result to the screen}
         WriteLn(FR2:2,'. element: ',h);
         Inc(FR2); {increase the counter varriable}
      End;
      WriteLn;
      WriteLn('Trying to fill an other array with 4 random words');
      WriteLn;
      Randomize;
      For i:=0 To 3 Do Begin
        j:=RandomNumbers(Counter);{calling our function}
        RandomWords[i]:=PhraseArray[j];
        WriteLn(i:2,'. element: ',RandomWords[i]);
      End;
   End
   Else WriteLn('Error during file reset.');
End;
 
Begin {main}
   {the 'C:MyPhrases.txt' consist of words as fallows}
   {cause we do not know your text file's contents,I'm just}
   {putting 10 words,one word one line}
   TheWords[0]:='apple';
   TheWords[1]:='peach';
   TheWords[2]:='time';
   TheWords[3]:='day';
   TheWords[4]:='sun';
   TheWords[5]:='pascal';
   TheWords[6]:='small';
   TheWords[7]:='great';
   TheWords[8]:='ship';
   TheWords[9]:='milk';
 
   {we write these words to the text file}
   Assign(PhraseFile,FileName);{assigning it,this is enough for one session}
   {notify the user ...}
   WriteLn('Assigning ok.');
 
   {create the file...}
   ReWrite(PhraseFile);{open for writing}
 
   {write the above words to this file}
   For i:=0 To 9 Do Begin
     WriteLn(PhraseFile,TheWords[i]);
   End;
   WriteLn('Writing from array ok.');
 
   WriteLn('Trying to write from text file to Array.');
   WriteLn('If you see the list then the process was success.');
   WriteLn;
   FileRead(PhraseFile,PhraseArray,Counter); {calling our procedure}
   WriteLn;
 
   Close(PhraseFile);{closing the file in front of the end of main program}
   WriteLn('Press enter to quit...');
   ReadLn;
End.{end of main}
 
{
-=Created by FlamingClaw=-
-=2009.04.26=-
}

Randomize;

 
 
Program Solution01;
{
we create a new array type,every element will contain
one string that max 20 char,and contains 10 items.
}
Type TArray=Array[0..9]Of String[20];
 
{I put the text file to the c:\,you can modify the file's path}
Const FileName = 'C:\MyPhrases.txt';
 
{the variables}
Var PhraseArray:TArray;{reading into it from a text file}
    TheWords:TArray;   {reading from it to a text file}
    RandomWords:TArray;{this will store the random words}
    Counter:Integer;  {will count the lines}
    i,j:Byte;     {loop variable,index}
    PhraseFile:Text;{your text file's variable}
    h:String; {this will one line}
 
 
{ RandomNumbers Function:
this function will generate random integer number
between 1 and the added number(this will the counter var)}
Function RandomNumbers(RN:Byte):Byte;
Var k:Byte;
Begin
   k:=Random(RN);
   RandomNumbers:=k;
End;
 
 
{ FileRead Procedure:
we direct leave out the 'assigning'
cause the main program already did it when it's called
It has 3 argument 1,One text file
                  2,One array
                  3,One counter variable
}
Procedure FileRead(Var FR:Text;Var FR1:TArray;Var FR2:Integer);
Begin
   {$I-}       {Input Output check off}
   Reset(FR); {open for reading}
   {$I+}       {Input Output check on}
   If (IoResult = 0) Then Begin
      FR2:=0;
      While (EoF(FR)=False) Do Begin
         ReadLn(FR,h);
         {fill the array with row}
         FR1[FR2]:=h;
         {write the result to the screen}
         WriteLn(FR2:2,'. element: ',h);
         If(EoF(FR))Then Break;
         Inc(FR2); {increase the counter varriable}
      End;
      WriteLn('Trying to fill an other array with 4 random words');
      WriteLn;
      Randomize;
      For i:=0 To 3 Do Begin
        j:=RandomNumbers(Counter);
        RandomWords[i]:=PhraseArray[j];
        WriteLn(i:2,'. element: ',RandomWords[i]);
      End;
   End
   Else WriteLn('Error during file reset.');
End;
 
Begin {main}
   {the 'C:\MyPhrases.txt' consist of words as fallows}
   {cause we do not know your text file's contents,I'm just}
   {putting 10 words,one word one line}
   TheWords[0]:='apple';
   TheWords[1]:='peach';
   TheWords[2]:='time';
   TheWords[3]:='day';
   TheWords[4]:='sun';
   TheWords[5]:='pascal';
   TheWords[6]:='small';
   TheWords[7]:='great';
   TheWords[8]:='ship';
   TheWords[9]:='milk';
 
   {we write these words to the text file}
   Assign(PhraseFile,FileName);{assigning it,this is enogh one session}
   {notify the user ...}
   WriteLn('Assigning ok.');
 
   {create the file...}
   ReWrite(PhraseFile);{open for writing}
 
   {write the above words to this file}
   For i:=0 To 9 Do Begin
     WriteLn(PhraseFile,TheWords[i]);
   End;
   WriteLn('Writing from array ok.');
 
   WriteLn('Trying to write from text file to Array.');
   WriteLn('If you see the list then the process was success.');
   WriteLn;
   FileRead(PhraseFile,PhraseArray,Counter); {calling our procedure}
   WriteLn;
 
   Close(PhraseFile);{closing the file in front of the end of main program}
   WriteLn('Press enter to quit...');
   ReadLn;
End.{end of main}
{
-=Created and Fixed by FlamingClaw=-
-=2009.04.26=-
}

Procedure FileReadInToArray;
Var data:array[1..10]of String;{your array}
      F:Text;
      FileName =String;
      Lines:String;
      Counter:Integer;
Begin
FileName:='C:\yourfile.txt';
Assign(F,FileName);
{$I-}
Reset(F);
{$I+}
If (IoResult = 0) Then Begin
   Counter:=1;
   While Not(EoF(F)) Do Begin
      ReadLn(F,Lines);
      Data[Counter]:=Lines;
      If (EoF(F)) Then Break;
      Inc(Counter);{increase 'Counter' by 1}
   End; {of while}
End
Else WriteLn('Error when reading the file');
Close(F);
End;

 
 
Program Solution01;
 
Uses Crt;
 
Var i:Byte;
 
Procedure FileReadInToArray;
Var   data:array[1..10]of String;{your array}
      F:Text;
      FileName :String;
      Lines:String;
      Counter:Integer;
Begin
FileName:='C:\yourfile.txt';
Assign(F,FileName);
{$I-}
Reset(F);
{$I+}
If (IoResult = 0) Then Begin
   Counter:=1;
   While Not(EoF(F)) Do Begin
      ReadLn(F,Lines);
      Data[Counter]:=Lines;
      If (EoF(F)) Then Break;
      Inc(Counter);{increase 'Counter' by 1}
   End; {of while}
End
Else WriteLn('Error when reading the file');
Close(F);
End;
 
Begin {main}
    FileReadInToArray;
    For i:=1 To 10 Do WriteLn(Data[i]);
   ReadLn;
End.{end of main}

 
 
Program Solution01;
 
Uses Crt;
 
Var i:Byte;
    data:array[1..10]of String;{your array}
    F:Text;
    FileName:String;
    Lines:String;
    Counter:Integer;
 
Procedure FileReadInToArray;
Begin
FileName:='C:\yourfile.txt';
Assign(F,FileName);
{$I-}
Reset(F);
{$I+}
If (IoResult = 0) Then Begin
   Counter:=1;
   While Not(EoF(F)) Do Begin
      ReadLn(F,Lines);
      Data[Counter]:=Lines;
      If (EoF(F)) Then Break;
      Inc(Counter);{increase 'Counter' by 1}
   End; {of while}
End
Else WriteLn('Error when reading the file');
Close(F);
End;
 
Begin {main}
    FileReadInToArray;
    For i:=1 To 10 Do WriteLn(Data[i]);
   ReadLn;
End.{end of main}