procedure goodswap(var a,b:integer);
// Нормально работающая процедура обмена значениями переменных.

var 
  t:integer; 

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