reading from text file, pascal

why is this only returning the 25th line of text in the file


GeneratedWords:Array [1..24] of String;
i, numbergenerated:Integer ;

Begin
Randomize;
numbergenerated:=(24)+1;
Assign(FileA,'C:\yo.txt');
Reset(FileA);
for i:=1 to 24 do
begin
readln(FileA,generatedwords[i]);
end;
Close(FileA);
NewPhrase:=generatedwords[numbergenerated];
SetUpGuessStatusArray(NewPhrase,GuessStatusArray);
PhraseHasBeenset:=True;
writeln(' A random word has been picked from a list , ', newphrase , ' , click enter to begin');
end;

numbergenerated:=(24)+1;