feat(fm): add universal FM RAW decoder output

WebServer.pas

@@ -69,7 +69,7 @@ interface
 
 uses
   Classes, SysUtils, Math,
-  WebUtils, WsClient, WebPageHtml
+  WebUtils, WsClient, WebPageHtml, RadioModes
   {$IFDEF WINDOWS}, Windows, WinSock2{$ELSE}, BaseUnix, Sockets{$ENDIF},
   SyncObjs;   // ← после платформенных юнитов: исключает конфликт идентификатора Create
 
@@ -560,7 +560,7 @@ begin
   FStateLock   := TCriticalSection.Create;
   // Начальные значения состояния
   FFreq      := 14200000;
-  FMode      := 1;
+  FMode      := MODE_USB;
   FFMStepIdx := 3;   // 25 kHz default
   FFilterBW:= 2700;
   FAGCMode := 1;
@@ -1717,8 +1717,8 @@ end;
 
 function TWebServer.BuildStateJson: string;
 const
-  MODE_N: array[0..11] of string =
-    ('LSB','USB','DSB','CWL','CWU','FM','AM','SAM','DIGU','DIGL','WFM','DMR');
+  MODE_N: array[RadioModes.MODE_MIN..RadioModes.MODE_MAX] of string =
+    ('LSB','USB','DSB','CWL','CWU','FM','AM','SAM','DIGU','DIGL','WFM','DMR','FM RAW');
 var
   FS: TFormatSettings;
   XvtrJson, DevJson, RateJson, BandJson: string;
@@ -1790,7 +1790,7 @@ begin
 	      '"rf_agc_visible":%s,"rx_gain_mode":%d,"rx_gain_db":%d,' +
 	      '"rx_mute_visible":%s,"rx_mute_on":%s}',
       [FFreq, FVfoB, FActiveVfo,
-       FMode, MODE_N[FMode mod Length(MODE_N)],
+       FMode, MODE_N[EnsureRange(FMode, MODE_MIN, MODE_MAX)],
        FFilterIdx, FFilterBW,
        FAGCMode, FAGCTop,
        FSpanHz, FCenterHz, FVolume,