Add Pascal API for reading wave files (#1243)

pascal-api-examples/read-wav/main.pas

@@ -0,0 +1,21 @@
+{ Copyright (c)  2024  Xiaomi Corporation }
+program main;
+
+{$mode objfpc}
+
+uses
+  sherpa_onnx;
+
+var
+  Wave: TSherpaOnnxWave;
+  S: Single;
+  I: Integer;
+begin
+  Wave := SherpaOnnxReadWave('./lei-jun-test.wav');
+  WriteLn('info ', Wave.SampleRate, ' ', Length(Wave.Samples));
+  S := 0;
+  for i := Low(Wave.Samples) to High(Wave.Samples) do
+    S += Wave.Samples[i];
+
+  WriteLn('sum is ', S);
+end.