Program File_Type;
{
   Este programa abre um arquivo texto indicado pelo usuario, e
   comeca a exibir linha a linha deste arquivo na tela, ate chegar
   ao final do arquivo.
}
Uses
  crt;
Var
  ArqTxt : Text;   { Define uma variavel ArqTxt do tipo arquivo texto=string }
  NomeArq: string;  { Nome do arquivo que sera lido do disco }
  LinhaTxt: string; { Linha de texto lida do arquivo - Max. 255 caracteres }
Begin
  clrscr;

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

  assign(ArqTxt,NomeArq);      { Associa o nome do arquivo … variavel ArqTxt }
  reset (ArqTxt);              { Abre o arquivo e se posiciona no inicio    }

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

  close(ArqTxt);                   { Fecha o arquivo }

end.