Program p10_10;
uses crt;
var f:text;
    s:string;
    n:integer;
begin
clrscr;
Write('Numele fisierului? ');readln(s);
Assign(f,s);reset(f);
n:=0;
While not eof(f) do begin Readln(f,s);inc(n);end;

WriteLn;
WriteLn('Fisierul are ',n,' randuri!');

readkey
end.