Pliki Tekstowe i Konsola

Witam,
Mam problem zalerzy mi na jak najmniejszym rozmiarze pliku, wiem ze mozna uzyc np. TStringList ale do tego trzeba dac w usues 'classes' i wtedy rozmiar programu automatycznie rosnie do okolo 70 kb a ja bym sie chcial zmiescic w 15 kb. Problem w tym ze majac plik tekstowy *.txt powiedzmy chce w konsoli odczytac powiedzmy druga jego linijke. Czy ktos moglby mi pomoc rozwiazac ten problem ??
Z gory dziekuje i pozdrawiam
Chochlik

Var P:Text;
    L:String;
Begin
  AssignFile(P,'nazwa.txt');
  Reset(P);
  Readln(P,L);
  // w L jest 1 linijka
  Readln(P,L);
  // w L jest 2 linijka
  CloseFile(P);
End;