var
  myFile : TextFile;
  n1, n2, n3 : Integer;

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

  // Запись чисел в строку
  WriteLn(myFile, '1 2 3 4');   // Обратите внимание, что 4 будут проигнорирована

  // Запись чисел как отдельные параметры
  WriteLn(myFile, 5, ' ', 6, ' ', 7);

  // Запись чисел как отдельные параметры
  WriteLn(myFile, '8 9');       // Отсутствие чисел будет замечено 0

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

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

  // Показ содержимого фала
  while not Eof(myFile) do
  begin
    ReadLn(myFile, n1, n2, n3);
    ShowMessage(IntToStr(n1)+' '+
                IntToStr(n2)+' '+
                IntToStr(n3));
  end;

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