implementation module storage;

procedure allocate (var a : integer; s : integer);
begin
end allocate;

procedure deallocate (var a : integer; s : integer);
begin
end deallocate;

end storage.