:)))))) лучше показать на примере
uses SysUtils;
var t:TextFile;
s:string;
begin
AssignFile(t,'1.txt'); Ассоциация файловой переменной t c 1.txt
Reset(t); Открываем для чтения
s:='';
while not eof(t) do
ReadLn(t,s); //чтение из файла t линии в переменную s, пока не наступит конец файла (eof = end of file). С каждым проходом цикла читается следующая строка. Потому что ReadLN :)
CloseFile(t); // закрытие файла
end.
Ещё посмотри help по Rewrite() по Seek