У чтения текстового файла есть функция EOLN - чтение до конца строки.
А также EOF - чтение до конца файла. Пользоваться ими примерно можно так:
Код:
...
// пока не конец файла
While not(EOF(F)) do begin
// пока не конец строки:
While not(EOLN(F)) do begin
...
end;
end;
Ну а дальше простая запись в нужную вам переменную... (внутри циклов).