Формат Wave-файла

program CreateWAVFile;

type
  TWaveHeader = record
    Marker1: array[0..3] of Char; // Маркер начала файла WAV
    BytesFollowing: LongInt; // Количество байт, следующих за заголовком
    Marker2: array[0..3] of Char; // Маркер "WAVE"
    Marker3: array[0..4] of Char; // Маркер "fmt " и null-терминатор
    Fixed1: LongInt; // Фиксированная величина (16 для формата WAV)
    FormatTag: Word; // Тег формата звукового файла (1 для PCM)
    Channels: Word; // Количество каналов звука
    SampleRate: LongInt; // Частота дискретизации звука
    BytesPerSecond: LongInt; // Количество байт в секунде
    BytesPerSample: Word; // Количество байт на каждый образец звука
    BitsPerSample: Word; // Количество бит на каждый образец звука
    Marker4: array[0..3] of Char; // Маркер начала данных
    DataBytes: LongInt; // Количество байт данных в файле
  end;

var
  WaveHeader: TWaveHeader;
  SampleResolution: Word; // Переменная для хранения разрешения образца звука

begin
  { Calculate DataBytes }
  SampleResolution := 16; // Default sample resolution for 16-bit WAV files
  DataBytes := WaveHeader.Channels * WaveHeader.SampleRate;
  DataBytes := DataBytes * SampleResolution div 8;
  DataBytes := DataBytes * WaveHeader.Duration div 1000;

  { Initialize the WaveHeader }
  WaveHeader.Marker1 := 'RIFF';
  WaveHeader.BytesFollowing := DataBytes + 36;
  WaveHeader.Marker2 := 'WAVE';
  WaveHeader.Marker3 := 'fmt ';
  WaveHeader.Fixed1 := 16;
  WaveHeader.FormatTag := 1;
  WaveHeader.SampleRate := WaveHeader.SampleRate; // No change needed
  WaveHeader.Channels := WaveHeader.Channels; // No change needed
  WaveHeader.BytesPerSecond := WaveHeader.Channels * WaveHeader.SampleRate;
  WaveHeader.BytesPerSample := WaveHeader.Channels * SampleResolution div 8;
  WaveHeader.BitsPerSample := SampleResolution;
  WaveHeader.Marker4 := 'data';
  WaveHeader.DataBytes := DataBytes;

  { Write the WAV file }
  // Implement code to write the header and audio data to a file
end.