var
  myFile : TextFile;
  number : Integer;

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

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

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

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

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

  // Показ содержимого файла
  while not SeekEof(myFile) do
  begin
    // Чтение чисел
    ShowMessage('Начало новой строки');
    while not SeekEoln(myFile) do
    begin
      Read(myFile, number);
      ShowMessage(IntToStr(number));
    end;

    // Теперь переходим на следующую строку
    ReadLn(myFile);
  end;

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