[ALexandr555]

Код:

for i:=А to Б do
 for a:=1 to I do  readln(Tanek,html);
end
ShowMessage(html);

нужно из файла прочесть строки от А до Б, так не работает, есть варианты?

[v1s2222]

Самый легкий вариант - загрузить все в TStringList.

Код:

var
  s: TStringList;
  i: integer;
  A, B: Integer;
begin
  s:=TStringList.Create;
  S.LoadFromFile('file.txt');
  A := Pos('А', S.Text);
  B := Pos('Б', S.Text);
  for i:=A to B do
...
  S.Free;
end;

[ALexandr555]

нет там 12мб так что не вариант
ну так

Код:

for a:=1 to I do  readln(Tanek,html);

же можно прочитать строку I неужели нельзя никак сделать и чтобы от А до Б

[v1s2222]

Не как если это текстовый файл. Надо прочитать весь файл, а потом уже выдирать то, что тебе надо. Или еще вариант: читать все строки подряд, не сохраняя их не куда (просто readln), пока не встретишь "А". Как встретил - начинать читать дальше, только записывать все в переменную. И только встречается символ "Б" - останавливаешь цикл.

[M.A.D.M.A.N.]

Загрузить в стринг лист, сделать сортировку, а дальше как в ответе выше.

[ALexandr555]

v1s2222 можете привести собственно пример

читать все строки подряд, не сохраняя их не куда (просто readln), пока не встретишь "А". Как встретил - начинать читать дальше, только записывать все в переменную. И только встречается символ "Б" - останавливаешь цикл.