Pascal/Turbo Pascal - DUDA SOBRE ARCHIVOS

HOLA AMIGOS
MI DUDA ES LA SIGUIENTE DESEO LEER UN ARCHIVO Y CONTAR LA LINEAS QUE EL ARCHIVO TENGA
¿COMO LO HAGO?

Supongo que te refieres a un archivo de texto, entonces:
var
F:Text;
ContLineas:Integer;
S:String;
begin
Assign(F,'texto.txt');
Reset(F);
ContLineas:=0;
ReadLn(F,S);
while not Eof(F) do
begin
inc(ContLineas);
ReadLn(F,S);
end;
Close(F);
WriteLn('El Archivo contiene ',ConLineas,' líneas.');
end.

VALE TE PASASTE