Операции с числами - VB

procedure TForm1.Button1Click(Sender: TObject);
var n,m,i,a,b,c:integer;
begin
edit3.Text:='';
n:=strtoint(edit1.Text);
m:=strtoint(edit2.Text);
for i:=n to m do begin
a:=i mod 10;
b:=i mod 100 div 10;
c:=i div 100 mod 10;
if (a=b)and(b=c)and(a=c) then begin
edit3.Text:=edit3.Text+inttostr(i)+' ';
end;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
dim n,m,i,a,b,c,s,a1,b1,c1,d1,s1 as integer

n:=strtoint(edit1.Text);
m:=strtoint(edit2.Text);
s:=0;
for i:=n to m do begin
a:=i mod 10;
b:=i mod 100 div 10;
c:=i div 100 mod 10;
if (a=b)and(b=c)and(a=c) then begin
s:=s+i;
end;
end;
edit4.Text:=inttostr(s);
a1:=s mod 10;
b1:=s mod 100 div 10;
c1:=s div 100 mod 10;
d1:=s div 100 div 10;
edit5.Text:=inttostr(d1);
edit6.Text:=inttostr(c1);
edit7.Text:=inttostr(b1);