Определить длительность wav файла

var db, bps: longword; {размер данных и байты в секунду}
                       {целые беззнаковые длиной в 4 байта}
    st: real; {время звучания}
    f: file of longword; {файл}
begin
  assign(f, 'c:\test.wav');
  reset(f);
  seek(f, 10); {смещение 10*4=40 - Размер данных}
  read(f, db);
  seek(f, 7); {смещение 7*4=28 - Байт в секунду}
  read(f, bps);
  close(f);
  st := db / bps; {в st - время звучания в секундах}
  write('Время звучания = ', st:0:3, ' сек.');
  readln
end.

const
c:string = 'Добрый День, Сэр!.wav'; // муз файл был сделан через речевой синтезатор сразу в формат .wav без преобразований.
var
  
  db, bps: longword; {размер данных и байты в секунду}
                       {целые без знаковые длиной в 4 байта}
  st,a,b: real; {время звучания}
  f: file of longword; {файл}
  d: integer;
  s: string;
begin
  assign(f, c);
  reset(f);
  seek(f, 10); {смещение 10*4=40 - Размер данных}
  read(f, db);
  seek(f, 7); {смещение 7*4=28 - Байт в секунду}
  read(f, bps);
  close(f);
  a:=Int64(db) div 10000; // преобразование db из 32 разрядности в 64 битную.
  b:=bps / 1000;
  st := a / b; {в st - время звучания в миллисекундах}
  d := floor(st);
  write('Время звучания = ', d, ' мс');
end.

  write('Время звучания = ', floor(db / bps / 10), ' мс');

uses math;
 
var db: longword; {размер данных}
    bps: longword; {байты в секунду}
    sfd: longword; {размер описания формата}
    st: int64; {время звучания}
    f: file of byte; {файл}
 
{процедура побайтного чтения для longword}
procedure rdlw(offs: longword; var x: longword);
var t: longword; {буфер}
    t_a: array [0..3] of byte absolute t; {буфер, массив байт}
    {absolute t - по адресу t, то есть "наложен" на t}
    i: byte;
begin
  seek(f, offs); {позиционируем}
  for i := 0 to 3 do read(f, t_a[i]); {читаем в t_a (на самом деле и в t тоже)}
  x := t {из буфера -> в переменную}
end;
 
begin
  assign(f, 'c:\test.wav');
  reset(f);
  rdlw(28, bps);
  rdlw(16, sfd); {читаем размер описания формата}
  rdlw(24 + sfd, db);
  {16+4+4+sfd = смещение размера описания формата + размер размера описания формата +}
  {+ размер строки "data" + размер описания формата (в данном случае получается 42)}
  close(f);
  st := floor(db / bps * 1000.0); {в st - время звучания в миллисекундах}
  write('Время звучания = ', st, ' мс.');
  readln
end.