Free pascal (PASCAL) - Pump