>>935
全部メモリに読み込む必要ないだろ。
while not Eof(f) do Readln(f, s)
で十分