procedure badswap(a,b:integer);
var 
  t:integer; 

begin
  t := a;
  a := b;
  b := t;
end;