Perro Loco 123

procedure TForm22.N71Click(Sender: TObject);
var n,b,par,impar,np,ni : Integer;
begin
n:=StrToInt(Edit1.Text);
par:=1; impar:=1; np:=0; ni:=0;
while n>0 do
begin
b:=n mod 10;
n:=n div 10;
if b mod 2=0 then
begin
np:=np+b*par;
par:=par*10;
end
else
begin
ni:=ni+b*impar;
impar:=impar*10;
end;
end;
Edit2.Text:=IntToStr(np);
Edit3.Text:=IntToStr(ni);
end;
end.