j:=0;
For i:=1 to N do
Begin
  If T2[i]=1 then
  Begin
    j:=j+1;
    T3[j]:=T1[i];
  End
End;
For i:=j+1 to N do
Begin
  T3[j]:=0;
End;