Pascalban txt sorainak megszámolása?

Minta hibakezeléssel:

program project1;

uses Classes;

var lista : TStringList;

begin

lista := TStringList.Create;

try

lista.LoadFromFile('text.txt');

WriteLn('Sorok száma: ', lista.Count);

except

WriteLn('A file nem létezik vagy nem olvasható !');

lista.Free;

end;

lista.Free;

ReadLn;

end.

A régi (klasszikusnak mondható) módszer:

program fajlsor_szamolo;

{Az alábbi fordítási direktívákkal a 255 karakternél hosszabb sorokat is be fog tudni olvasni, bár valószínűleg a "h+" direktíva is elég lenne ide, de gondoltam úgyis FP alatt lesz fordítva, betettem a másikat is.}

{$MODE OBJFPC} {$H+}

var

f : text;

sor : string;

sorszam : longint;

begin

assign (f, paramstr (1) );

{$I-}

Reset(f);

{$I+}

if IOResult <> 0 then

begin

Writeln('A fajl nem letezik!');

ReadLn;

halt(1);

end;

sorszam := 0;

while not Eof (f) do

begin

ReadLn(f,sor);

inc(sorszam);

end;

Close(f);

WriteLn('A fajlban levo sorok szama: ', sorszam);

ReadLn;

end.