[Il_S]

Доброго времени суток.
проблема в сабже, помогите найти в каком месте не соответствует целому, а то я уже глаз сломал, вот код :

Код:

var
  Form1: TForm1;
   n:Integer;
   M : array of Integer;
implementation

{$R *.dfm}

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
randomize;
n:=strtoint (Edit1.text);
Setlength (M,n);
 for i:=0 to n-1 do
  begin
  M[i]:=round(sin(random(60))*60);
  Edit3.text:=Edit3.Text+' '+inttostr(M[i]);
  End;


end;

procedure TForm1.BitBtn2Click(Sender: TObject);
var
i,r,k,s,n,p,v:Integer;
begin
i:=0;
k:=strtoint(Edit2.text);
for i:=0 to n-1 do
  begin
  if checkbox1.Checked Then
     begin
   r:=M[i] mod 10;
     If (r mod 2) <> 0  then
     begin
     M[i]:=M[i+1];
     n:=n-1;
     Edit4.Text:=Edit4.Text+inttostr(M[i]);
     end;
     end;
  if checkbox2.Checked then
  begin
  v:=1;
s:=M[i];
p:=M[i];
    while s<>0 do
    begin
    s:=s div 10;
    v:=v*10;
    end;
v:=v div 10;
p:=p div v;
  If (k=s) and (M[i] div 2 <> 0) then
  begin
     M[i+1]:=k;
 Edit5.Text:=Edit5.Text+' '+inttostr(M[i]);
     end;
     end;
end;
end;
end.