function countLines(path: string): integer;
var     f: file;
        s: string;
begin
    countLines := 0;
    assign(f, path);
    reset(f);
    while not eof(f) do
    begin
        readln(f, s);
        countLines := countLines + 1;
    end;
end;