текстовый файл

[Var17]

Нужно в текстовом файле прочитать инфу например с 20 по 30 строку.
n:=1;
while not EOF (f) do begin
readln(f, buf);
n:=n+1;/считываем строки
end;
Не могу понять как прочитать конкретные строки.
Кто знает помогите плс

[Jeni]

Такая тема обсуждалась уже много раз. Можно сделать через списки строк:

var
  SL: TStringList;
  I: Integer;
  S: string;
begin
  SL := TStringList.Create;
  SL.LoadFromFile('file');

  if SL.Count >= 30 then
    for I := 19 to 29 do // т.к. нумерация идет с нуля
      begin
        S := SL[I];
        // Нужный код
      end;

  SL.Free;
end;