Var F:Text;
    S:String; {or an array of string}
Begin
  Assign (F,'FileName'); 
  Reset (F); { Set file to read mode }
  While Not EOF(F) do
  Begin
    Read(F,S);
    Writeln(S);
  End;
  Close(F); { Very important! }
End.