[deniks]

это k можно убрать, не в нем проблема. Ругается при присваивании массиву значений, полученных из .wav. на строчке X^[i]:=xx/1;

Код:

unit pribor56;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    private
    { Private declarations }
  public
    { Public declarations }
  end;

type
            mascp=array[1..4096] of single ;
              mask=array[0..4096] of single ;
              mascpptr=^mascp;

              maskd=array [0..10] of string;


var
  Form1: TForm1;

var xx: byte;
datafile : file of byte;
mpp:string;
kd:longint;
jj:integer;
   sabb, sgarm, ss: maskd;

          const jjk=2;{L=5;}n=12;pkr=100;fmax=11025/2;
          var  dt,a,f,xk:mask;
      x,y:mascpptr;
     
        i,j,L: integer;
          

implementation
{$R *.dfm}

begin

mpp:='1';
ss[kd]:='1w';

Assign(DataFile,ss[kd]+mpp+'.wav');
Reset(DataFile);
seek(DataFile, 50);
for jj:=1 to jjk do
begin
for i := 1 to 4096 do
begin
Read(DataFile, Xx);
X^[i]:=xx/1;
end;end; end.