var
  myFile : TextFile;
  text   : string;

begin
  // Попытка открыть файл Test.txt для записи
  AssignFile(myFile, 'Test.txt');
  ReWrite(myFile);

  // Запись нескольких известных слов в этом файл
  WriteLn(myFile, 'Hello World');

  // Запись пустой строки
  WriteLn(myFile);

  // Запись строки и числа в файл
  WriteLn(myFile, '22/7 = ' , 22/7);

  // Повторение вышеупомянутого, но с форматированием числа
  WriteLn(myFile, '22/7 = ' , 22/7:12:6);

  // Закрытие файла
  CloseFile(myFile);

  // Повторное открытие файла для чтения
  Reset(myFile);

  // Показ содержимого файла
  while not Eof(myFile) do
  begin
    ReadLn(myFile, text);
    ShowMessage(text);
  end;

  // Закрытие файла в последний раз
  CloseFile(myFile);
end;