Выборочное чтение из файла

writeln('1.');
writeln('2.');
writeln('3.');
readln(N);
assign(F,'info.txt');
reset(F);

uses classes;
var
  L : TStringList;
  i, n : integer;
begin
  writeln('1.');
  writeln('2.');
  writeln('3.');
  readln(N);
 
  L := TStringList.Create;
  L.LoadFromFile('info.txt');
  for i := (n - 1)*3 to 3*n - 1 do
    writeln(L[i]);
  L.Free;
end.

var
  n: Integer;
  f: Text;
  s: String;
begin
  repeat
    Write('Введите число от 1 до 3: '); ReadLn(n);
  until n in [1..3];
  n:=n*3;
  Assign(f,'info.txt'); Reset(f);
  while not EOF(f) and (n>0) do begin
    ReadLn(f,s); Dec(n);
    if n<3 then WriteLn(s);
  end;
  Close(f);
end.

var
  n, i: Integer;
  f: Text;
  s: String;
begin
  repeat
    Write('Введите число от 1 до 3: '); ReadLn(n);
  until n in [1..3];
  Assign(f,'info.txt'); Reset(f);
  for i:=1 to (n-1)*3 do { пропустим (n-1)*3 строк }
    if not EOF(f) then ReadLn(f);
  for i:=1 to 3 do { выведем следующие 3 строки }
    if not EOF(f) then begin
      ReadLn(f,s); WriteLn(s);
    end;
  Close(f);
end.

var
  n, i: Integer;
  f: Text;
  s: String;
begin
  repeat
    Write('Введите число от 1 до 3: '); ReadLn(n);
  until n in [1..3];
  Assign(f,'info.txt'); Reset(f);
  for i:=1 to (n-1)*3 do { пропустим (n-1)*3 строк }
    if EOF(f) then Break else ReadLn(f);
  for i:=1 to 3 do { выведем следующие 3 строки }
    if EOF(f) then Break else begin
      ReadLn(f,s); WriteLn(s);
    end;
  Close(f);
end.

uses
  classes,crt;
var
  L : TStringList;
  j,i, n : integer;
begin
  writeln('1.');
  writeln('2.');
  writeln('3.');
  readln(N);
 
  L := TStringList.Create;
  L.LoadFromFile('info.txt');
  for i := (n - 1)*3 to 3*n - 1 do
    begin
      for j:=1 to Length( L[i]) do
        begin
          write(L[i][j]);
          delay(10);
        end;
      writeln;
    end;
  L.Free;
  readln;
end.