Алгоритм Берлекэмпа-Месси

[maksim-neupokoev]

Помогите пожалуйста реализовать данный алгоритм, а точнее пункт для "m"

вот набросок программы:
var
k,n,i,j,x2,q,c,m,o:integer;
a,s,e,m1:array[0..1000] of integer;
p:array[0..1000] of integer;
w,l:array[-1..1000] of integer;
r,row:string;
label z;
begin n:=0; //находим кол-во элементов в таблице
for k:=0 to ListBox1.Count-1 do begin
s[k]:=StrToInt(listBox1.Items[k]);
n:=n+1;
end;
m:=-1;
l[0]:=0;
x2:=0;
l[-1]:=-1;
for k:=0 to n-1 do begin
if (m=k) then begin //определяем a(t,i)
o:=1; end else begin
o:=0;
end;

e[k]:=((s[k]+o*s[k-l[k-1]]) mod 2 );

if (e[k]=1) then begin

j:=k-1;
z: if l[j]<l[k] then begin
x2:=x2+1;

w[x2]:=k-j;

m:=w[x2];

end else begin
j:=j-1;
goto z;
end;
end else begin

end;
if (e[k]=1) and (l[k]<=k/2) then begin
l[k+1]:=k+1-l[k];
end else begin
l[0]:=0;
l[k+1]:=l[k];
end;
end;