Pascal/Turbo Pascal - Abrir txt

Hola amigos, necesito un favor, como hago para abrir un archivo txt. Gracias.!

var
Txt: Text;
Linea: string;
begin
Assign(Txt,'Archivo.txt');
reset(Txt);
while not Eof(Txt) do
begin
ReadLn(Txt, Linea);
WriteLn(Linea);
end; { while }
end.

Saludos.

Hola
intente abrir un txt con el codigo q pusiste pero no lo pude hacer funcionar.
hay q usar alguna unidad o declarar algo en type???
gracias

No, nada, de otra forma lo habría puesto en el ejemplo.
¿Cual es el mensaje de error?.
Debes tener en cuenta que en mi ejemplo estoy asumiendo que el archivo de texto EXISTE en el directorio del programa.