[deniks]

Здравствуйте уважаемые знатоки. Делаю программу для диплома ( в универе паскаль учили да и все) и столкнулся с трудностями. Есть рабочая программа на паскале, ее нужно переделать в делфи.

Суть программы заключается в считывании данных из *.wav и работа с ними. Но на этапе считывания wav столкнулся с проблемами, делфи говорит о выходе за пределы.

Часть программы на паскале, где считывается .wav

Код:

(var datafile : file of byte )

 Assign(DataFile,ss[kd]+mpp+'.wav');
   Reset(DataFile);
   seek(DataFile, 50);
 AAs[0]:=0;
       for i:=1 to k do
 A[i]:=0;

 for jj:=1 to jjk do
begin
   for i := 1 to 4096 do
      begin
      Read(DataFile, Xx);
X^[i]:=xx/1;
end;

моя попытка в делфи:

Код:

AssignFile(DataFile,ss[kd]+mpp+'.wav');
Reset(DataFile, 1);
AAs[0]:=0;
for i:=1 to k do
A[i]:=0;
seek(DataFile, 50);


   for i:=1 to 4096 do
         begin
         blockread(Datafile,buf,1);
         X^[i]:=buf;
end;

Если кто может, огромная просьба помочь.

Выскакивает ошибка на blockread(Datafile,buf,1); Read beyond end of file. Вроде бы как выходит за пределы. исправить не получается...