program Project2;

uses
SysUtils;

function textsize(txtfile:textfile):longint;
begin
 reset (txtfile);
 result:=0; //конечно вроде автоматом обнуляется.. но все же
 while not EOF(txtfile) do begin
  readln(txtfile);
//  inc(textsize); вообще, иногда помогает inc(textsize,1); но основная беда в том, что мне почему-то казалось, что это в паскаль для возврата значения нужно было обращаться на имя функции..
// надо что-то типа:
  inc(result,1); //ну либо inc(result);
 end;
end;

begin
{ TODO -oUser -cConsole Main : Insert code here }
end.

function txtLineCount(fileName: string): cardinal;
var sl: TStringList;
begin
  sl:= TStringList.Create;
  sl.LoadFromFile(fileName);
  result:= sl.Count;
end;