program test;

var

source: text;
name: string;
line: string;
count: integer;

begin

write('write name of file (for example 1.txt): ');
read(name);

assign(source, name);
reset(source);

count := 0;

while not eof(source) do
begin

readln(source, line);

count := count + 1;

end;

writeln('Lines count: ', count);

close(source);

end.