var
  input :text;
  FileName, size, s :string;

begin

  write('Введите имя файла: ');
  readln(FileName);
  size:= '.txt';
  
  assign(input,FileName + size);
  reset(input);
  
  writeln('Содержимое файла: ');
  while not Eof(input) do
  begin  
    readln(input,s);
    writeln(s);
  end;
  
  close(input);

end.