Program File_Type;
{
   Este programa abre um arquivo texto indicado pelo usu rio, e
   come‡a a exibir linha a linha deste arquivo na tela, at‚ chegar
   ao final do arquivo.
}
Uses
  crt;
Var
  ArqTxt : Text;   { Define uma vari vel ArqTxt do tipo arquivo texto=string }
  NomeArq: string;  { Nome do arquivo que ser  lido do disco }
  LinhaTxt: string; { Linha de texto lida do arquivo - Max. 255 caracteres }
Begin
  clrscr;

  write('Nome do arquivo: ');  { Lˆ o nome do arquivo existente no disco }
  readln(NomeArq);

  assign(ArqTxt,NomeArq);      { Associa o nome do arquivo … vari vel ArqTxt }
  reset (ArqTxt);              { Abre o arquivo e se posiciona no in¡cio    }

  clrscr;
  while not(Eof(ArqTxt))         { Testa para ver se ainda nao chegou ao fim }
  do begin
       readln(ArqTxt,LinhaTxt);  { Lˆ uma linha do arquivo texto em disco }
       writeln(LinhaTxt);        { Escreve na tela }
       readkey;                  { Espera que o usu rio aperte uma tecla }
     end;

  close(ArqTxt);                   { Fecha o arquivo }

end.